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4 .REM ft 

5 

6 IDENTIFICATION 

7 

8 

9 PRODUCT CODE: AC-T2638-MC 

10 
11 

12 PRODUCT NAME: CZTUVBO TU80 DATA RELIABILITY TEST 

13 

14 

15 PRODUCT DATE: 11 - JULY - 1983 

16 

17 

18 MAINTAINER: TAPE DIAGNOSTIC ENGINEERING 

19 

20 

21 AUTHOR: ROBERT F. UERY/JACK RICKARDSON/TERRENCE REILLY 

22 

23 

24 

25 

26 

27 

28 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

29 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

30 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

31 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
32 

33 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 

34 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 

35 AFFILIATED COMPANIES. 
36 

37 COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 

38 

39 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

40 

41 DIGITAL POP UNIBUS MASSBUS 

42 DEC DECUS DECTAPE 
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3.0 



4.0 
5.0 



6.0 



SEQ 0003 



ERROR INFORMATION 



3.1 



ERROR REPORTING 



3.1.1 
3.1.2 
3.1.3 
3.1.4 
3.1.5 



3.1.6 
3.1.7 
3.1.8 
3.1.9 
3.1.10 



ERROR »1 - COMMAND PACKET ADDRESS IS NOT ON A M 
ERROR #2 - TU80 NOT READY 
ERROR #3 - NO RESPONSE ERRORS 
ERROR #4 - NO INTERRUPT ERROR 
SPECIAL CONDITION ERRORS 

3.1.5.1 ERROR «5 - TCCO, UNDEFINED SPECIAL COND 

3.1.5.2 ERROR #6 - TCC1. ATTENTION CONDITION 

3.1.5.3 ERROR #7 - TCC2, TAPE STATUS ALERT 

3.1.5.4 ERROR #8 - TCC3, FUNCTION REJECT 

3.1.5.5 ERROR #9 - TCC4, RECOVERABLE ERROR 

3.1.5.6 ERROR #10- TCC5, RECOVERABLE ERROR 

3.1.5.7 ERROR #11- TCC6, UNRECOVERABLE ERROR 

3.1.5.8 ERROR #12- TCC7, FATAL SUBSYSTEM ERROR 

ERROR #13 - RFC NON-ZERO ERROR 
ERROR #14 - RETRY LIMIT EXCEEDED 
ERROR #15 - TOO MANY INTERRUPTS 
ERROR #16 - CAPSTAN RUNAWAY 
ERROR #17 - DATA COMPARE ERRORS 



3.2 ERROR HALTS 
PERFORMANCE REPORT 



TEST SUMMARIES 



5.1 
5.2 
5.3 
5.4 
5.5 
5.6 



TEST 1 
TEST 2 
TEST 
TEST 
TEST 



3 
4 
4 



BASIC FUNCTIONS 
DATA RELIABILITY 
WRITE AND READ STREAMING TEST 
WRITE COMPATIBILITY/WRITE UTILITY 
READ COMPATABILITY/READ UTILITY 



TEST 5 - EXECUTE OPERATOR SELECTED COMMAND SEQUENCE 



DEVICE INFORMATION 
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6.3.4 EXTENDED STATUS REGISTER 1 (XSTATl) 

6.3.5 EXTENDED STATUS REGISTER 2 (XSrAT2> 

6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 
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GLOSSARY 



ACT 
APT 

BYTE/RECORD/FILE COUNT 
BRF 

cno 

COmAND PACKET 
CMOPKT 

EXTENDED STATUS 



MESSAGE PACKET 

PC 
PSU 

RESIDUAL FRAME COUNT 
RFC 



SPECIAL CONDITION 
SPEC COND 



TERMINATION CLASS CODE 
TCC 

TS8A 

TSDB 

TSSR 

XSTO 

XST1 

XST2 

XST3 

XXDP* 



SEO OCO 



AUTOMATED COMPUTER TEST SYSTEM 

AUTOMATED PRODUCT TEST SYSTEM 

IS STORED IN THE 4TH WORD OF THE COMMAND 
PACKET AND IT'S USE BY THE TU80 DEPENDS 
ON THE TYPE OF COMMAND. 

TU80 COMMAND (SEE 2.3.14.1 FOR LIST OF COMMANDS) 

FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE 
TU80 TO EXECUTE A COMMAND. 

FOUR WORDS OF TU80 STATUS WHICH ARE 
TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
THE COMPLETION OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TU80 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 

PROGRAM COUNTER 

PROCESSOR STAIuS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET 
AND CONTAINS THE NUMBER OF BYTES/RECORDS 
/FILES REMAINING TO BE PROCESSED AT THE 
COMPLETION OF A COMMAND. 
TSS4 BIT15. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITH- 
OUT INCIDENT. 

THREE BIT CODE IN THE TSSR WHICH INDI- 
CATES THE TYPE OF COMMAND TERMINATION. 

TAPE SYSTEM BUS ADDRESS REGISTER. 

TAPE SYSTEM DATA BUFFER REGISTER. 

TAPE SYSTEM STATUS REGISTER. 

EXTENDED STATUS REGISTER 0 

EXTENDED STATUS REGISTER 1 

EXTENDED STATUS REGISTER 2 

EXTENDED STATUS REGISTER 3 

XXDP* IS A 'tATCH-ALL" NAME FOR A GROUP OF POP-1 
DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA. 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.1.1 FUNCTIONAL DESCRIPTION 

THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILlTy 
TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE OF OPERATOR 
SELECTED COMMANDS. 

1.1.2 STRUCTURE OF PROGRAM 

THIS DIAGNOSTIC IS A SINGLE PROGRAM 

FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 

1.1.3 MEMORY MAP 

400 
2000 
41000 



VECTOR 
AREA 



STACK 



DIAGNOSTIC 



DIAGNOSTIC 
SUPERVISOR 

72000 i ! 

XXDP* 



mn 

FREE MEMO SPACE FOR UR/RD BFRS OR OTHER PUROSES 
IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
BY PROGRAMMER TO RESIDE BETWEEN THE DIAG AND THE 
SUPERVISOR. 
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258 1.1.4 DIAGNOSTIC INFORMATION 

259 

260 

261 1.1.4.1 SCOPE 

262 

263 THIS DIAGNOSTIC CAN TEST UP TO 4 UNITS SIMULTANEOUSLY. THE 4 UNITS 

264 ARE ASSIGNED LOGICAL UNIT NUMBERS 0 > 3 BY THE DIAGNOSTIC. 
265 

266 THERE ARE 6 TESTS IN THIS PROGRAM: 
267 

268 TEST 1 - BASIC FUNCTIONS. 

269 TEST 2 - DATA RELIABILITY. 

270 TEST 3 - WRITE AND READ STREAMING TEST. 

271 TEST 4 - URITE C0MPATA8ILITY/WRITE UTILITY. 

272 TEST S - READ COMPATABILITY/READ UTILITY. 

273 TEST 6 - OPERATOR SELECTED SEQUENCE UTILITY. 
274 

275 1.1.4.2 ERROR RECOVERY 

276 

277 ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE HARK 

278 ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. 

279 THE READ FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 

280 AND 8 IN THE OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR RECOVER 

281 PROCEDURES, SEE SECTION 3.0 (ERROR REPORTING). 
282 

283 1.1.4.3 WRITE ERROR RECOVERY 

284 

285 THERE ARE 2 DISTINCT, SELECTABLE WRITE-ERROR-RECOVERY ALGORITHMS: 

286 1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 

287 2. OPERATIONAL ALGORITHM 
288 

289 BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 

290 MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 

291 

292 TO SELECT THE SECOND ALGORITHM: 

293 ANSWER 'Y' TO CHANGE SW (L) ? 

294 ANSWER *N' TO BAD TAPE SPOT DETECTION (L) Y ? 
295 

296 WHEN ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 

297 AND BOTH ALGORITHMS ARE BYPASSED. 
298 

299 1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 

300 

301 SCOPE 

302 

303 THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 

304 OPERATIONAL ONES. 
305 

306 ALGORITHM 
307 

308 A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR SUBROUTINE 

309 ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERROR. 

310 THE WRITE RETRY SUBROUTINE REWRITES RECORD IN SAME SPOT ON TAPE: 

311 REPEAT 4 TIMES. 

312 IF ALL 4 REPEATS ARE GOOD, RECORD IS CONSIDERED AS RECOVERED AND 

313 A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER. 
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3U IF ANY OF THE A REPEAT FAILS, ERASE BAD RECORD, LOG SUSPECTED 

315 BAD SPOT AT THAT RECORD NUMBER, RETRY AGAIN 3 INCHES FURTHER DOWN TAPE. 

316 RETRY 4 TIMES, UP TO 4 REPEATS EACH. 

317 IF RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERROR AFTER 4 RETRIES, 

318 ERASE RECORD, REPORT RETRY FAILED ON BAD SPOT. 

319 THE RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 

320 RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, 

321 UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 
322 

323 TWENTY (20) BAD SPOTS MAXIMUM ARE ALLOWED PER TAPE PASS. 

324 WHEN 20 BAD SPOTS HAVE BEEN LOGGED^ ON SAME RECORD NUMBER OR NOT, 

325 TAPE IS CONSIDERED DEFECTIVE: A BAD TAPE OVERFLOW MESSAGE IS PRINTED 

326 AND UNIT IS REWOUND, THEN DROPPED. 

327 

328 DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL TAPE 

329 POSITION OPERATIONS: SPACE REVERSE, ERASE. IF A POSITION ERROR STATUS 

330 IS DETECTED DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS ABORTE 

331 AN APPROPRIATE UNRECOVERABLE MESSAGE IS PRINTED AND UNIT IS DROPPED. 

332 

333 ALL BADLY WRITTEN RECORDS FLAGGED WITH RECOVERABLE ERRORS ARE ERASED 

334 UNTIL RECOVERED, INCLUDING THE RECORD AT THE 20TH BAD SPOT, 

335 SO THAT ALL RECORDS LEFT ON TAPE ARE GOOD WRITTEN RECORDS. 

336 BAD SPOTS ARE ERASED, WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY 6R0 

337 UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 

338 A SINGLE RECORD. IF NO BAD SPOT WERE PREVIOUSLY DETECTED. 

339 THAT LONG STRETCH OF BAD TAPE WOULD THEN BE FLAGGED WITH 20 

340 BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 
341 

342 BAD SPOTS REPORTS 

343 

344 IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE ARE 

345 IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED UNTIL 

346 THE BAD SPOTS ACTUALLY PRECEDES THE RECORD NUMBER THAT IDENTIFIES THEM. 

347 THE NUMBER OF REPEATS AND RETRIES ATTEMPTED IS PRINTED. FROM WHICH THE 

348 LENGTH OF ERASE 6APS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETR 
349 

350 THE STATISTICAL REPORT PRINTED AT THE END OF TEST 2 OR UPON A 'PRINT" RE 

351 CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT TAPE PASS. 

352 IN THAT REPORT, ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS. EXCEPT FOR 

353 THE NUMBER OF BAD SPOTS: IT RELATES TO A "TAPE PASS" ONLY. 

354 FOR THIS PURPOSE. A "TAPE PASS" IS A WRITE PASS FROM BOT TO EOT, OR FROM 

355 BOT TO WHERE THE DIAGNOSTIC IS HALTED BEFORE REACHING EOT. 

356 A PASS IS DEFINED BY THE SUPERVISOR AS A RUN THROUGH ALL THE TESTS REQUE 

357 ON ALL UNITS SELECTED. THOSE PASSES ARE IDENTIFIED AS 'VASS" AND 'tOP". 
358 

359 THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 

360 COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 
361 

362 THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 

363 AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. 

364 PER TAPE PASS. THE NUMBER OF WRITE RETRIES EQUALS THE SUM OF THE 

365 NUMBER OF RECOVERABLE WRITE ERRORS AND BAD SPOTS. HOST OF THE TIME. 

366 

367 TO CLEAR CUMULATIVE COUNTS. ANSWER *Y* TO: CLEAR COUNTERS (L) Y ?. 

368 BAD TAPE SPOTS COUNT IS CLEARED WHEN WRITING FROM BOT. 

369 
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SEQ 0008 



IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 

SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 

BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 

OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 

THE SAME RECORDS MUST BE WRITTEN FORM TAPE PASS TO TAPE PASS 
FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 

EXAMPLE OF A TAPE PASS PRINTS: 

CZTUV SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

WRT CMD FAILED - UNIT 0 PASS: 1 RECORD: 6 
PREVIOUS CMD WAS WRT 



CMDPKT 
100205 
026600 
000000 
003107 
XSTO 
000350 



TSBA 
002406 



RFC 
000000 



TSSR 
100210 



TCC 
4 



XST1 XST2 
000002 100400 
SUSPECT BAD SPOT AFTER 1 RETRY, 
SUSPECT BAD SPOT AFTER 2 RETRY, 
SUSPECT BAD SPOT AFTER 3 RETRY, 
SUSPECT BAD SPOT AFTER 4 RETRY, 
RETRY FAILED ON BAD SPOT... ERASED! 
SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 



XST3 
000000 



REPEAT 
REPEAT 



1 REPEAT 
3 REPEAT 



CZTUV SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 
RECOVERABLE ERROR 

WRT CMD FAILED ' UNIT 0 PASS: 1 REC0RD:10210 

PREVIOUS CMD WAS WRT 

CMDPKT TSBA RFC TSSR TCC 

100205 002406 000000 100210 4 

026600 

000000 

004000 

XSTO XST1 XST2 XST3 
000350 000002 100010 000000 
RECOVERED ON RETRY # 1 
•C 

DR>PRI 

UNIT 0 PASS: 
BYTES WRITTEN 
BYTES READ REV 
BYTES READ REV 



012100 



1 RECORD: 10210 
0,272,279,691 
0,301,123,654 
0,301,120,381 



WRT 


RDR 


RDF 


1 


0 


0 


0 


0 


0 


3 







RECOVERABLE ERRORS 
UNRECOVERABLE ERRORS 
WRITE RETRIES 
2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD #: 



SPEC COND 
2 

DR> 



HARD 
0 



FATAL 
0 



COMPARE 
0 
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427 THIS EXAMPLE SHOWS: 

428 RECORD 6 RECOVERED ON 2ND RETRY GROUP 

429 THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5 

430 RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 

431 3 WRITE GROUP RETRIES ATTEMPTED, RESULTING IN: 

432 1 RECOVERABLE WRT ERR FROM RECORD 10210 

433 2 BAD SPOTS BETWEEN RECORDS 5 AND 6 
43A 

435 

437 1.1. A. 3. 2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 

439 WHEN THIS ALGORITHM IS SELECTED, THE TU80 WRITE RETRY COMMAND 

440 IS ISSUED UP TO 16 TIMES OR UNTIL RECORD IS RECOVERED. ON 

441 A WRITE RECOVERABLE ERROR. THE WRITE RETRY COMMAND CONSISTS 

442 OF A SPACE REVERSE OVER THE BAD RECORD, THEN AN ERASE OF 3 INCHES 

443 OF TAPE AND REWRITE OF THE RECORD. THAT COMPOSITE COMMAND 

444 DOES NOT ALLOW TO DETECT BAD SPOTS ON TAPE. 

445 THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 

447 IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 

448 A RETRY LIMIT EXCEEDED IS FLAGGEb AND UNIT IS DROPPED. 

449 

451 1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 

453 A NUMBER OF SUPERVISOR TIMING DELAYS MACROS. KNOWN AS WATCH DOG 

454 DELAYS. ARE CALLED BY THE DIAGNOSTIC iO WAIT FOR VARIOUS COMMANDS 

455 COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 

456 INTO AN INLINE NESTED LOOP PAIR. THE COUNT FOR THE OUTER LOOP 

457 COMES FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. 

458 THE COUNT FOR THE INNER LOOP COMES FORM THE FIXED '>€ADER" 

459 ELEMENT 'tSOLY". 

460 AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S. THESE DELAYS WILL 

461 VARY IN LENGTH WITH MEMORY SPEED. 

462 

463 IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 

464 UNIT IS EVIDENT. ALL TIMINGS OF THE DIAGNOSTIC HAY BE ADJUSTED 

465 TO MATCH MEMORY SPEED AND NOT RESULT IN TIME-OUTS. BY PATCHING 

466 THAT FIXED DELAY ELEMENT 'ISDLY". 
467 

468 A PRESET COUNT OF 000000 RESIDES AT 'ISDLY" IN LOCATION 2116 OF THE 

469 '1NEADER" SECTION. 

47? 1.2 SYSTEM REQUIREMENTS 

472 

473 

474 1.2.1 HARDWARE REQUIREMENTS 

475 

476 

477 PDP-11 PROCESSOR WITH 16K OR MORE OF MEMORY 

478 CONSOLE DEVICE (LA30.LA36.VT50.ETC. ) 

479 PROGRAM LOAD DEVICE 

480 TU80 DRIVE AND UNIBUS ADAPTER MODULE 
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482 1.2.2 SOFTWARE REQUIREMENTS 

A83 

484 

485 DIAGNOSTIC SUPERVISOR 
486 

487 1.3 RELATED DOCUMENTS AND STANDARDS 

488 

489 

490 XXDP> USERS MANUAL MD-11>CHQUS 

491 DIAGNOSTIC SUPERVISOR PROGRAM LISTING 

492 PDP-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 

493 PDP-11 DIAGNOSTIC SUPERVISOR PROGRAMMER'S GUIDE. 

494 TU80 PROGRAMMING SPECIFICATION. 

495 TU80 COMMAND PACKET SPECIFICATION. 
496 

497 

498 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

499 

SOD 

501 ORDER OF HOST CPU DIAGNOSTIC USAGE: 

502 

503 1) CONTROL LOGIC PROGRAM - ALL TESTS. 

504 

S05 2) DATA RELIABILITY PROGRAM: 

506 

507 A) BASIC FUNCTION TEST. 

508 8) DATA RELIABILITY TEST. 
509 

510 

511 1.5 ASSUMPTIONS 

515 

514 THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 

515 PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR. MEMORY. ETC., 

516 DO NOT FUNCTION PROPERLY. 

518 

51^ 1.6 DIAGNOSTIC HISTORY 

520 

521 

522 REVISION A - 23-MAR-83 - ORIGINAL RELEASE 

523 REVISION B - 17-APR-83 - FIX TEST 3 FOR NEW SPEED ALGORITHM 
5e** 
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526 2.0 OPERATING INSTRUCTIONS 

527 

528 

529 FOR OPERATING INSTRUCTIONS, PLEASE SEE CHAPTER 5 OF XXOPt OPERATOR"S 

530 MANUAL. 

552 

534 2.1 HARDWARE PARAMETERS 

535 

537 ON A '1^" RESPONSE TO "CHANGE HW?", THE DIA6 SHALL RUN ASSUMING 

538 ONE UNIT AT TSSR » 172522 WITH A VECTOR - 224. 
539 

540 ON A "V" RESPONSE TO "CHANGE HW?" QUESTION. THEN 

5A1 THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 

5A2 VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 

5A3 VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

544 

545 TSSR ADDRESS (172522) ? 
546 

547 VECTOR (224) ? 

549 THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TESTS 

550 BY SETTING THE FLAG "ADR" ON A STA, RES OR CON COMMAND. 

551 THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 

552 AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRES 

553 OF THE TSSR(S). IF NO RESPONSE, IT DROPS THE UNIT(S) IMMEDIATELY 

554 WITH THE FOLLOWING MESSAGE: 

555 BUS TRAP AT XXXXXX ( XXXXXX = TSSR AD ) 

556 INTERFACE BAD OR NOT SET TO ABOVE AD. 

557 ON A RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR NOT 

558 ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL THEN 

559 BE RUN ON RESPONDING UNITS. 
560 

561 IF THE "ADR" FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF THE 

562 UNITS ARE CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 

563 TO WARN THE OPERATOR OF UNITS BEING NOT READY OR OFF-LINE. THESE UNITS 

564 SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME (3 MIN ON A 11/70). 
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566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 
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n 1 



SEQ 0012 



2.2 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, 
OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAV THE PROGRAM BEHAVES. 

CLEAR COUNTERS (L) Y ? 

RESET RANDOM VARIABLES (L) N ? 

PRINT RECOVERABLE ERRORS (L) N ? 

HALT AFTER EACH CMD (L) N ? 

INHIBIT RECOVERY (L) N ? 

BAD TAPE SPOT DETECTION (L) Y ? 

DISABLE INTERRUPTS (L) N ? 

INHIBIT RFC ERROR REPORTS (L) N ? 

CHANGE CMD SEQUENCE (L) N ? 

NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
IF THIS QUESTION WAS ANSWERED (N), NO MORE 
QUESTIONS WILL BE ASKED. IF THIS QUESTION WAS 
ANSWERED Y, THE FOLLOWING QUESTIONS MUST BE 
ANSWERED OR DEFAULTED WITH A <CR> ONLY: 



CHARACTERISTICS CODE (0) 40 ? 
CMD/2 (D) 13 ? 
BRF COUNT (D) 1 ? 

# OF OPERATIONS (D) 1 ? 
PATTERN (D) 7 ? 

CMD/3 (D) 4 ? 

BRF COUNT (D) 2048 

# OF OPERATIONS (D) 32000 ? 
PATTERN (D) 7 ? 

CMD/4 (D) 3 ? 

BRF COUNT (D) 2048 ?,,^^^ 

# OF OPERATIONS (D) 32000 ? 
PATTERN (D) 7 ? 

CMD/5 (D) 2 ? 

BRF COUNT (D) 2048 ?,,^^^ ^ 

# OF OPERATIONS (D) 32000 ? 
PATTERN (D) 7 ? 

CMD/6 (D) 13. ? 

BRF COUNT (D) 1 ? , 

# OF OPERATIONS (D) 1 ? 
PATTERN (D) 7 ? 

CMO/7 (D) 27. ? 

BRF COUNT (D) 2048 ?,^^^^ , 

# OF OPERATIONS (D) 32000 ? 
PATTERN (D) 7 ? 



(0.20,40.200) (OCTAL) 



(1-27) 
(1-2K) 
(1-32K) 
(0-8) 
(1-27) 
(1-2K) 
(1-32IC) 
(0-8) 
(1-27) 
(1-2IC) 
(.-32K) 
(0-8) 
(1-27) 
(1-2K) 
(1-32K) 
(0-8) 
(1-27) 
(1-2K) 
(1-32IC) 
(0-8) 
(1-27) 
(1-2IC) 
(1-32K) 
(0-8) 



(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
(DECIMAL) 
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622 CI1D/8 (D) 27. ? (1-27) (DECIMAL) 

623 BRF COUNT (D) 2048 ? (1-2IC) (DECIMAL) 

624 # OF OPERATIONS (D) 32000 ? (1-32IC) (DECIMAL) 

625 PATTERN (D) 7 ? (0-8) (DECIMAL) 

627 NOTE: THE PROGRAM AUTOMATICALLY INSERTS AN CHARACTERISTIC 40 

628 AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 

629 DIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD 
650 ENTER THAT CHARACTERISTIC CODE. A TOTAL OF 7 COMMANDS 

631 NAY BE ENTERED IN ADDITION TO THE SET CHARACTERISTICS 

632 COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN 7 

633 COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN A 

634 CONTROL Z CZ) CAN BE ENTERED TO TERMINATE SOFTWARE DIAL 
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2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 

638 CODE COMMAND DESCRIPTION 

Sq 1 = DRI DRIVE INITIATE. 

^1 2 = RDF READ FORWARD. 

642 3 = RDR READ REVERSE. 

HI 5 = UTV WRITE/VERIFY. IE. WRITE N RECORDS; READ REVERSE AND CHEC 

rTc H RECORDS OF DATA; READ FORWARD AND CHECK N RECORDS. 

646 6 = SRF SPACE RECORDS FORWARD. 

647 7 = SRR SPACE RECORDS REVERSE. 

648 8 = RNR READ NEXT REVERSE. IE. SPACE FWD. READ PEV. 

649 9 = RNF READ NEXT FORWARD, IE. READ FWD, SPACE REV. 

650 10 = RPF READ PREVIOUS FWD. IE. SPACE REV. READ FWD. 

651 11 = RPR READ PREVIOUS REV. IE. READ REV. SPACE FWD. 

652 12 = WRR WRITE RETRY. 

653 13 = RWD REWIND. 

654 U - M8R MESSAGE BUFFER RELEASE. 

655 15 - WTM WRITE TAPE MARK. 

656 16 = WTR WRITE TAPE MARK RETRY. 

657 17 = SFF SPACE FILES FORWARD. 

658 18 - SFR SPACE FILES REVERSE. 

659 19 s 6ES GET EXTENDED STATUS. 

660 20 = ERS ERASE 3 INCHES OF TAPE. 

661 21 = UNL UNLOAD. 

23 = SCH SET^EVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, 0. ^ 

r5r 200 = enable skip tape marks stop (stop at logical eot) 

665 40 = ENABLE ATTENTION INTERRUPTS. 

666 20 s ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

667 SEE TU80 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
AAA 24 = NOT USED 

669 25 - JMP JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE 
S5o TABLE. WHERE N IS DEFINED IN THE BRF FIELD. 

THE NUMBER OF JUMPS IS ENTERED IN THE # OF OPERATIONS FI 

I7I 26 = OLY DELAY 'V HIHSECONDS WHERE N IS DEFINED IN 
Hi THE # OF OPERATIONS. THIS DELAY IS USED BETWEEN 

674 EACH EXECUTABLE COMMAND. 

675 27 END END OF COMMAND SEQUENCE. 

677 2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 

679 PATTERN # DESCRIPTION. 

68? 0 INCREMENTING PATTERN. 0 - 377. 

682 1 ALL 'T'-S PATTERN. 

voc p ALL 'V"S PATTERN 

^ 3 "1" BIT WALKING FROM R TO L IN A FIELD OF [yj^S. 

6R5 4 "O" BIT WALKING FROM R TO L IF A FIELD OF 'T^S.^ 

2S! 5 ALTERNATING "I" AND "0" BITS WITH ALTERNATE BYTES COMPL 

687 6 ALTERNATING BYTES OF 000 AND 377. 

Sa 7 RANDOM DATA PATTERN. 

689 8 NO PATTERN GENERATION. 
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691 
692 
693 
694 
695 
696 
69^ 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
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C 2 



SEO 0015 



2.3 EXAMPLES OF SOFTWARE DIALOGUE 

2.3.1 BASIC FUNCTION AND DATA RELIABILITY UlTH ALL ERROR REPORTING ENABLED 

A) RECEIVE PROMPT (DR» 

8) ENTER STA/TESrl-2<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 



CHANGE SW (L) ? 

CLEAR COUNTERS (L) N ? 

RESET RANDOM VARIABLES (L) N ? 

PRINT RECOVERABLE ERRORS (L) N 1 

HALT AFTER EACH CMD (L) N ? 

INHIBIT RECOVERY (L) N ? 

BAD TAPE SPOT DETECTION (L> Y ? 

DISABLE INTERRUPTS (L) N ? 

INHIBIT RFC ERROR REPORT (L) N ? 

CHANGE CMD SEQUENCE (L) N ? 



Y<CR> 
Y<CR> 
N<CR> 
Y<CR> 
N<CR> 
N<CR> 
Y<CR> 
N<CR> 
N<CR> 
N<CR> 
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712 

713 

7U 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 
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2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 

A) RECEIVE PROMPT (DR» 

B) ENTER STA/TES:1/FLA:L0E:IER:ISR:I0U<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 

CHANGE SW (L) ? V<CR> 

CLEAR COUNTERS (L) N ? Y<CR> 

RESET RANDOM VARIABLES (L) N ? N<CR> 

PRINT RECOVERABLE ERRORS (L) N ? N<CR> 

HALT AFTER EACH CMD (L) N ? N<CR> 

INHIBIT RECOVERY (L) N ? N<CR> 

BAD TAPE SPOT DETECTION (L) Y ? N<CR> 

DISABLE INTERRUPTS (L) N ? N<CR> 

INHIBIT RFC ERROR REPORT (L) N ? Y<CR> 

CHANGE CMD SEQUENCE (L) N ? N<CR> 

2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 

A) RECEIVE PROMPT (DR» ^ 

B) ENTER STA/TES:5/FLA:IER:ISR:IDU/EOP:1000<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 

CHANGE SW (L) ? Y<CR> 

CLEAR COUNTERS (L) N ? Y<CR> 

RESET RANDOM VARIABLES <L} N ? N<CR> 

PRINT RECOVERABLE ERRORS (L) N ? N<CR> 

HALT AFTER EACH CMD (L) N ? N<CR> 

INHIBIT RECOVERY (L) N ? N<CR> 

BAD TAPE SPOT DETECTION (L) Y ? N<CR> 

DISABLE INTERRUPTS (L> N ? Y<CR> 

INHIBIT RFC ERROR REPORT (L> N ? Y<CR> 

CHANGE CMD SEQUENCE (L) N ? Y<CR> 

CHARACTERISTICS CODE (0) 40 ? 40<CR> 

CMO/2 (D) 5 ? 13<CR> 

BRF COUNT (D) 2048 ? 1<CR> 

« OF OPERATIONS (D) 10 ? 1<CR> 

PATTERN (D) 7 ? 1<CR> 

CMO/3 (D) 5 ? . *<^S* 

BRF <D) 2048 ? 1900<CR> 
# OF OPERATIONS (D) 10 ? 10000<CR> 

PATTERN (D) 7 ? ,1<CR> 

CMO/4 <D) 5 ? 27<CR> 

BRF (0) 2048 ? <*Z> 



SEQ 0016 



(REWIND) (COULD 



(WRITE) (COULD B 



(END) (COULD B 
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760 2.4 EXECUTION TIMES 

761 

762 

763 

764 2.4.1 SYSTEM CONFIGURATION 

765 

766 

767 PDP11/34 

768 NOS MEMORY 

769 LA36 

770 TU80 
771 

772 

773 2.4.2 TEST EXECUTION TIMES 

774 

776 TEST 1 - BASIC FUNCTIONS - 30 SECONDS PER PASS. 

777 TEST 2 - DATA RELIABILITY - 45 MINUTES PER PASS. 

778 TEST 3 - WRITE/READ STREAMING TEST - 15 MINUTES PER UNIT. 

779 TEST 4 - WRITE COMPATABILITY - 20 MINUTES PER PASS. 

780 TEST 5 - READ COMPATABILITY - 20 MINUTES PER PASS. 

781 TEST 6 - OPERATOR SELECTED SEQUENCE • DEPENDS ON SEQUENCE SELECTED. 

7I3 NOTE: ALL EXECUTION TIMES ARE SHOUN FOO ONE UNIT OEPRATION. 

784 APPROXIMATELY 10S WILL BE ADDED TO ALL EXECUTION TIMES 

785 FOR EACH ADDITIONAL UNIT EXCEPT WITH TEST Z, WHERE EACH 

786 ADDITIONAL UNIT ADDS 8 MINUTES TO THE EXECUTION TIME. 



f 2 

PARAMETER COOING HACVll 30(1046) 12-JUL-83 09:44 PAGE 15 

CZTUVB.P11 12-JUL-83 09:26 SEQ 0018 

788 3.0 ERROR INFORMATION 

789 

790 

791 

792 3.1 ERROR REPORTING 

793 

794 

795 ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDE A OUNP 

796 OF THE FOLLOWING INFORMATION: 

798 ERROR TEST SUBTEST », PROGRAM COUNTER, UNIT », 

799 COMMAND, PREVIOUS COMMAND, PASS COUNT, » OF 

800 RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR, 

801 TCC, TSBA, RFC, AND THE EXTENDED STATUS REGISTERS 

802 (SEE 2.3.14.1 FOR LIST OF COMMANDS). 
803 

804 STANDARD ERROR REPORT FORMAT: 
805 

806 CZTUV SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 

807 (ASCII ERROR MESSAGE) 

808 XXX CHD FAILED - UNIT X PASS: XXXXX RECORD: XXXXX 

809 PREVIOUS CMD WAS XXX * RECORD READ: XXXXX • 

810 CMDPKT TSBA RFC TSSR TCC 

811 XXXXXX XXXXXX XXXXXX XXXXXX X 

812 XXXXXX 

813 XXXXXX 

814 XXXXXX 

815 XSTO XST1 XST2 XST3 

816 XXXXXX XXXXXX XXXXXX XXXXXX 

817 
818 

819 * CAUTION • 
820 

821 INTERPRET THAT 'DECORO READ" COUNT WITH CAUTION. 

822 IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DiAGNOST 

823 POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 

824 RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

825 READ FROM TAPE. 

826 IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED, RECORD 

827 IS RESET TO ZERO ALTHOUGH TAPE UAS NOT REWOUND. THIS IS 

828 NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

829 ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS HALTED 

830 BEFORE RESTARTING OR CONTINUING. 

831 IT IS SUGGESTED THAT A 'T>RINT" BE REQUESTED WHEN HALTING Dl 

832 TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 

§54 EXAMPLE OF AN ERROR REPORT: 
835 

836 CZTUV SFT ERR 00009 TST 002 SUB 000 PC: 010606 

837 RECOVERABLE ERROR 

838 WRT CHD FAILED - UNIT 2 PASS: 2 RECORD: 254 

839 PREVIOUS CMD WAS WRT 

840 CMDPKT TSBA RFC TSSR TCC 

841 100005 002324 000000 100210 4 

842 051766 

843 000000 
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844 000371 

845 XSTO XST1 XST2 XSr3 

846 000350 000002 100004 000000 
847 

848 

849 3.1.1 ERROR #1 - COWAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRV: 

850 

851 IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROfERLY. 

852 THIS IS A SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 

853 CORRECT IT. 
854 

855 

856 3.1.2 ERROR #2 - TU80 NOT READY: 

857 

858 BEFORE ANY COMMAND IS ISSUED TO THE TU80 THE SUBSYSTEM READY 

859 BIT IN THE TSS4 IS CHECKED. IF THE SSR IS NOT SET, THE PROGRAM 

860 REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 

861 THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 

862 OPTION IS USED. 
863 

864 

865 3.1.3 ERROR #3 - NO RESPONSE ERROR: 

866 

867 ONCE THE TSDB IS LOADED, THE TU80 HAS ONE MILLISECOND TO RESPOND 

868 OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A FATAL 

869 DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 

870 UNLESS THE IDU OPTION IS USED. 
871 

872 

873 3.1.4 ERROR #4 - NO INTERRUPT ERROR: 

874 

875 COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 

876 THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 

877 THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 

878 OPTION IS USED. 
879 

880 

881 3.1.5 SPECIAL CONDITION ERRORS: 

882 

883 IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 

884 SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 

885 8 ERROR HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 

886 CODE. 
887 

888 THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 

889 WHEN SPECIAL CONDITION IS SET: 
890 

891 

892 3.1.5.1 ERROR »5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 

893 

894 THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 

895 AND THE PROGRAM PROCEEDS NORMALLY. 
896 

897 

898 3.1.5.2 ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

899 
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900 THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

901 SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 

902 ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 

903 THE IDU OPTION IS USED. 
904 

905 

906 3.1.5.3 ERROR »7 - TERMINATION CLASS CODE 2. TAPE STATUS ALERT 

907 

908 A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

909 TO THE PROGRAM. BITS OF INTERCST INCLUDE TMK, RLS. LET, RLL, EOT. 

910 ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED. 

911 IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND 

912 A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY. 
913 

914 

915 3.1.5.4 ERROR «8 - TERMINATION CLASS CODE 3, FUNCTION REJECT 

916 

917 THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 

918 RMR, OFL, VCK. BOT, ILC, ULE, ILA, AND NBA. THIS IS A FATAL 

919 DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE 

920 UNLESS THE IDU OPTION IS USED. 
921 

922 

923 31.5.5 ERROR #9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR 

924 

925 TAPE POSITION IS ONE RECORD BEYOND UHAT ITS POSITION WAS WHEN 

926 THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 

927 ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 

928 IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 

929 IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 
930 

931 

932 3.1.5.6 ERROR ftO - TERMINATION CLASS CODE 5, RECOVERABLE ERROR 

933 

934 TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

935 ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 

936 REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 

937 IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 
938 

939 

940 3.1.5.7 ERROR #11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 

941 

942 TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE IS TO 

943 REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 

944 NUMBERS. IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND AND 

945 RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 

946 DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED 
947 

948 

949 3.1.5.8 ERROR #12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 

950 

951 THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANDS OR AT 

952 UAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 

953 FATAL CLASS CODE FIELD IN THE TSSR REGISTtR F3R ADDITIONAL INFOR- 

954 MATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 

955 FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
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956 
957 

958 3.1.6 ERROR «13 • RFC N0N-2ER0 ERROR: 

959 

960 IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON-ZERO, THE 

961 ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 

962 PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 

963 IS OPTIONAL. 

964 
965 

966 3.1.7 ERROR «14 - RETRY LIMIT EXCEEDED: 
967 

968 ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 

969 WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

970 

971 ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 

972 THE PROGRAM PROCEEDS NORMALLY. 
973 

975 3.1.8 ERROR #15 - TOO MANY INTERRUPTS: 
976 

977 IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS REPORTED. 

978 THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 

979 THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

980 

982 3.1.9 ERROR #16 - CAPSTAN RUNAWAY: 

983 

984 CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

985 COMMAND. THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 

986 THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 

987 WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED. 

988 THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 

989 THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
990 

992 3.1.10 ERROR #17 - DATA COMPARE ERROR: 
993 

994 IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 

995 THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 

996 DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED 

997 ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 

998 THE TOTAL # OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 

999 HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 
1000 

1001 

1002 3.2 ERROR HALTS 

1003 

1004 

1005 ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 

1006 WITH /FLA6:H0E. THERE ARE NO OTHER HALTS. 
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1008 

1009 

1010 

1011 

1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 
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4.0 PERFORMANCE REPORT 



SEQ 0022 



UNIT X PASS:XXXXX RECORD :XXXXX 
BYTES yRITTEN XXX,XXX,XXX«XXX 
BYTES READ REV XXX,XXX,XXX,XXX 
BYTES READ FUD XXX,XXX,XXX,XXX 

URT RDR 
RFC0VERA6LE ERRORS XXXXX XXXXX 
UNRECOVERABLE ERRORS XXXXX XXXXX 

SPEC COND HARD FATAL COMPARE 
XXXXX XXXXX XXXXX XXXXX 



RDF 
XXXXX 
XXXXX 



5.0 TEST SUMMARIES 



5.1 



TEST 1 - 



BASIC FUNCTIONS. 

EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TU80 FUN 

SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 

* SET CHARACTERISTIC 200. 

* DRIVE INITIATE. 

* SET CHARACTERISTIC 20. 

* GET STATUS 

* SET CHARACTERISTIC 40. 



SUBTEST 2 

SUBTEST 3 - URITE/VERIFY. 



REWIND. 

* REWIND. 

* REWIND AT BOT. 



♦ WRITE/VERIFY 

♦ WRITE/VERIFY 

♦ WRITE/VERIFY 

♦ WRITE/VERIFY 

♦ WRITE/VERIFY 

♦ WRITE/VERIFY 

♦ WRITE/VERIFY 



PATTERN 1, 



PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 



2. 
3. 
4. 
5. 
6. 



PATTERN 0. 



SUBTEST 4 - WRITE TAPE MARK, ERASE. 

* WRITE TAPE MARK. 
^ WRITE 10 RECORDS 

* ERASE 10 TIMES 

* WRITE TAPE MARK. 

* WRITE TAPE MARK RETRY. 

SUBTEST 5 - SPACE FILES. 

* SPACE 2 FILES REVERSE. 

* SPACE 2 FILES FORWARD. 

* SPACE 2 FILES REVERSE. 
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106A 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
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SUBTEST 6 

SUBTEST 7 

SUBTEST 8 

SUBTEST 9 

SUBTEST 10 
SUBTEST 11 

SUBTEST 12 



SEO 0023 

* SPACE 2 FILES FORWARD. 

SPACE RECORDS. 

* REWIND. 

* SPACE 7 RECORDS FORWARD. 

* SPACE 7 RECORDS REVERSE. 

* SPACE 7 RECORDS FORWARD. 

* SPACE 7 RECORDS REVERSE. 

WRITE RETRY. 

* REWIND. 

* WRITE DATA. 

* WRITE RETRY. 

READ REV RETRY. 

* READ REVERSE. 

* READ NEXT REVERSE. 

* READ NEXT FORWARD. 

READ FWD RETRY. 

* READ FORWARD. 

* READ PREVIOUS FORWARD. 

* READ PREVIOUS REVERSE. 

CLEAN. 

* CLEAN. 

* REWIND. 

- WRITE/VERIFY SWAPPED DATA BYTES. 

* WRITE/VERIFY EVEN LENGTH (RECORD 1). 

* WRITE/VERIFY ODD LENGTH (RECORD 2>. 

* SET DATA BYTE SWAP. 

t WRITE/VERIFY EVEN LENGTH (RECORD 3). 

* WRITE/VERIFY ODD LENGTH (RECORD 4). 

* CLEAR DATA BYTE SWAP. 

- READ SWAPPED DATA BYTES. 

* READ REV RECORD 4. 

* READ REV RECORD 3. 

* SET DATA BYTE SWAP. 

* READ REV RECORD 2. 

* READ REV RECORD 1. 

* READ FWD RECORD 1. 

* READ FWD RECORD 2. 

* CLEAR DATA BYTE SWAP. 

* READ FWD RECORD 3. 

* READ FWD RECORD 4. 
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1112 5.2 TEST 2 - 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1127 5.3 TEST 3 - 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1150 5.4 TEST 4 - 

1151 

1152 

1153 

1154 

1156 5.5 TEST 5 - 

1157 

1158 

1159 

1161 5.6 TEST 6 - 

1162 

1163 

1164 

1165 

1166 

1167 



SEQ 0024 



DATA RELIABILITY. 



1. 



THE TAPE IS INITIATED WITH THE FOLLOWING COWIANDS: 
SET CHARACTERISTIC 40 
REWIND 

WRITE/VERIFY 31 RECORDS OF RANDOM LENGTH AND DAT 

2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND 
EXECUTED A RANDOM NUMBER OF TIMES WITH RANDOM 
LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REA 

3. AT THE END OF EACH PASS* A REWIND COMMAND IS ISSUED 
A PERFORMANCE REPORT IS PRINTED. 

NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
TEST 1« THE INITIAL REWIND COMMAND IS NO 

WRITE AND READ STREAMING TEST. 

1. REWINDS ALL UNITS, THEN ON EACH UNIT: 

»> REPEAT TWICE «< 



2. WRITE PATTERN 5 FOR 7000 - 1 KBYTE RECORDS. ^ 

THE SPEED ALGORITHM IN THE TU80 WILL ENABLE 100 IPS S 

3. READ REVERSE FOR 3500 RECORDS AT 100 IPS STREAMING. 

4. READ REVERSE FOR 3500 RECORDS AT 25 IPS STREAMING. 

5. READ FORWARD FOR 3500 RECORDS AT 100 IPS STREAMING. 

6. READ FORWARD FOR 3500 RECORDS AT 25 IPS STREAMING. 

7. WRITE A TAPE MARK 

******************************************************** 

»> END REPEAT «< 

NOTE: 7000(10) RECORDS OF 1000(10) BYTES ARE WRITTEN AND 
ON EACH ITERATION. 

WRITE COMPATABILITY/WRITE UTILITY. 

REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 

READ COMPATABILITY/READ UTILITY. 

REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 

EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

THE SEQUENCE OF COMMANDS ENTERED BY THE OPERATOR 

IS EXECUTED. IF NO COMMANDS WERE ENTERED, A 

DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ FUD/REWIN 

OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 

AND RECORD LENGTH Or 2048 BYTES. 
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1169 6.0 DEVICE INFORMATION TABLES 

1170 

1172 6.1 GENERAL 



1173 

1175 THE TU80 SUBSYSTEM IS A REEL-TO-REEL TAPE TRANSPORT WITH AN INTEGRATED 

1176 FORMATTER. AN ADAPTER MODULE CONNECTS THE DRIVE TO ANY PROCESSOR 

1177 WITH A UNIBUS. THE SUBSYSTEM READS AND WHES AT EITHER25 OR JOO IPS 

1178 AND RECORDS AT 1600 BPI, PHASE ENCODED, ANSI STANDARD FORMAT. TAPE 
2U§ SPEEDS OF 25 OR 100 IPS ARE AUTOMATICALLY SELECTED BY THE CONTROLLER 
liaX ACCORDING TO A SPEED ALGORITHM WITHIN THE CONTROLLERS' FIRMWARE. THE 
jli? HOST SOFTWARE MAY SELECT THE 100 IPS SPEED; THE 25 IPS SPEED IS NOT 
Ull USER-SELECTABLE. IN ADDITION. THE DRIVE IS MICROPROCESSOR CONTROLLED 
]l2| AND HAS SELF-CONTAINED LOGIC AND FUNCTIONAL DIAGNOSTICS. THE ADAPTER 
]]|| MODULE ENABLES THE TU80 TO BE 100X PROTOCOL COMPATIBLE WITH THE TS11. 

1186 OPERATIONALLY, THE TU80 IS UNIQUE IN A NUMBER OF WAYS: 

1188 A. ONLY ONE REGISTER MAY BE WRITTEN - TSDB (TAPE SYSTEM 

1189 DATA BUFFER), 

1191 B. TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 

1192 REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 

1194 C. COMMANDS ARE NOT WRITTEN TO THE ORIVE^ATHER. COMMAND 

1195 POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOME- 

1196 WHERE IN CPU MEMORY. THE COMMAND POINTER IS ^Ji^tOB^ 

1197 THE TS04 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 

1198 PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 

1200 1- COMMAND WORD 

1201 2. LOW ORDER BUFFER ADDRESS 

1202 3. HIGH ORDER BUFFER ADDRESS 

1203 ^- BYTE COUNT 

1205 D. THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 

1206 ESSARY TO DETERMINE WHETHER: ^ 

lio7 1. THE DRIVE IS READY TO ACCEPT ANOTHER COMMAND, 

lloa 2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR... 

1209 IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT "JOB DONE" 

1210 OR "COMMAND INITIATION" TIMEJT MAY BE NECESSARY 

lIlY TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 

1212 ACTION IS TO BE TAKEN AND/OR LOG THE BUMSR INFORMATION. 

jiil E- EXTENDED STATUS REGISTERS ARE NOT READ. DIRECTLY FROM 
lll5 DRIVE REGISTERS; RATHER, A "GET STATUS" COMMAND _ 

ifii IS ISSUED WHICH WILL CAUSE THE TU80 TO TRANSFER EXTENDED 

1217 STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 

1^ BUFFER ADDRESS OF THE "GET STATUS" COMMAND. THERE ARE FOUR 

1219 EXTENDED STATUS REGISTERS. SEE 6.3. 

ill? F. THE TSDB MUST BE WRITTEN WITH A OATO INSTRUCTION TO 

1?2? PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 

Jill CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 

1224 SUBSYSTEM INIT. 
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N 2 



SEQ 00?6 



1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 



6. COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR ^ 

MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE dY 2 OR WORD 
BOUNDARIES). 

6.2 UNIBUS INTERFACE SPECIFICATIONS 



TU80 

FIRST 

SECOND 

THIRD 

FOURTH 



INT. 
VECTOR 



224 
FLOAT 
FLOAT 
FLOAT 



UN i bus 
AT'DRESS 



772520 
772522 

772524 
772526 

772530 
772532 

772534 
772536 



REGISTER 



TSBA/TSDB 
TSSR 

TSBA/TSDB 
TSSR 

TSBA/TSDB 
TSSR 

TSBA/TSDB 
TSSR 
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1249 6.3 BIT DEFINITIONS FOR TU80 REGISTERS 

1250 

1251 

1253 6.3.1 TU80 REGISTER SUMNARY 

1254 

1256 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 

ipc7 4. ♦ 4—4- — — ♦ .-f ♦ — 

1258 !A15! !A14'A13!A12! 'All !A10!A09! !A08!A07!A06! !A05!A04!A03! !A02!A0 

1259 TS8A ! II ! ! ! ! ! ! ! ! ! ! •' ! •* • • 
^pfjk 4 — ♦ 4.^4— -4— >♦ 4.— ♦ — ♦ — 

1261 JP15! IP14IP13IP12! IPII IP10IP09! !P08!P07!P06I IP05IP04IP03! IP02IP1 

1262 TSD8 I ' ! I ! II I I ! I I II • ■ • ■ • 

1264 ISC I I ! IRMR! INXI1INBAIA17! f A16ISSRI0FLI :FC1 IFC0ITC2I ITCllTC 

1265 TSSR ! I I ! ! ! I ! ! J 1 I I I I I ! ! I 

y2(^ ♦ 4.~4.~4— ♦ ♦ — 

1269 ITMKI IRLSILETIRLL! 'WLE INEF I ILC! IILAI lONLI HE IVCK'PEDI IWLKIBO 

1270 XSTO I II I I I I I ! II I I I •' I I I I ■ 
<P71 4—4 ♦ 4- — ♦ — ♦ ♦ ♦ — ♦ ♦ ♦ ♦ ♦ ♦ ♦ — ♦ — 

1272 !DLT! ! ICORICRSI I 108FI II I ! I I I I I ! lUN 

1273 XST1 I I I ! I II I I II I ! II I I II ICR 

*p7/ 4...4 4.— ♦ 4...4....4-— 4 

1275 lOPMI ISIPIBPEICAF! I IWCF! I !0TP!DT7!DT6! '0T5IDT4IDT3! IDT2I0T 

1276 XST2 f I I I I I I I I ! I 1 I ! ! I ! ! ! I 

«p77 — ♦ ♦—+.—+—♦ ^.-.4....^ 4^.— .<f 

1278 ! MICRO DIAGNOSTIC ERROR CODE I lOPI! IREVI IDCK! ! ILX 

1270 XST3 ! I I I I i I 1 : I 

^280 ♦— ♦ -4^ +— ♦ — 4 ♦ — ♦ ♦ — 

1281 

1282 itKHil»A7ICf« CLASS CODCS (TSSR TC0-TC2): 
1 505 

1284 0 - KORI>IAL TERMINATION 

1285 1 = ATTENTION CONDITION 

1286 2 = TAPE STATUS ALERT 

1287 3 = FUNCTION REJECT 

1288 ^ = RECOVERABLE ERROR - TAPE POSITION = ONE RECORD 

1289 DOWN TAPE FROM START OF FUNCTION 

1290 5 s RECOVERABLE ERROR - TAPE NOT MOVED 

1291 6 = UNRECOVERABLE ERROR - TAPE POSITION LOST 

1292 7s FATAL CONTROLLER ERROR 
1293 

1294 FATAL CLASS COOES (TSSR FCO-FCD: 
1?95 

1296 0 = MICRO DIAGNOSTIC FAILURE (DISPLAYED IN TU80 OPERATOR PANEL AND 

1297 1=1/0 SEQUENCER CROM PARITY ERROR. 

1298 2 = MICROPROCESSOR CROM PARITY ERROR. 

1299 SILO PARITY ERROR. 

1300 SERIAL BUS PARITY ERROR DETECTED AT TU80 (SPE). 
301 SERIAL BUS PARITY ERROR DETECTED AT TS04 (BPE). 

7302 FATAL ERROR HALTS 1750-1777 IN TS04 PROGRAM COUNTER DISPLAY. 

1303 3 - LOSS OF AC POWER HAS BEEN DETECTED. 
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1305 

1307 6.3.2 TU80 STATUS REGISTER (TSSR) 

1308 

1309 

131? UNIBUS ADDRESS * 2 - READ ONLY 

1313 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 

1315 !SC ! !UPE!SPE!R«RJ !N)(«!NBA!A17! JA16!SSR!0FL! !FClJfC0!TC2! !TC1!TC0! 

1316 * ' ' ! ! ! ! ! ! ! - • ' '• ' • ' • ■' • 

1318 

1320 BIT NAME TCC DEFINITION 

1321 — - 

1322 

1323 IS SC S SPECIAL CONDITION. UHEN SET, INDICATES THAT 

1324 THE LAST COMMAND DID NOT COMPLETE UITHOUT 

1325 INCIDENT. SPECIFICALLY, EITHER AN ERROR WAS 

1326 DETECTED OR AN EXCEPTION CONDITION OCURRED. 

1327 EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 

1328 COMMANDS, REVERSE MOTION AND AT BOT, EOT WHILE 

1329 WRITING, ETC. MAY ALSO BE SET BY THE ERROR 

1330 BITS CONTAINED IN THE TSSR REGISTER: UPE, SPE, 

1331 RMR, AND NXM. THE TERMINATION CLASS BITS ARE SOMET 

1332 OTHER THAN 0 (UNLESS RMR IS THE ONLY ERROR - SEE RM 

1334 14 NOT USED 

1336 13 NOT USED 

1338 12 RMR S REGISTER MODIFICATION REFUSED. SET BY THE TU80 

1339 WHEN A COMMAND POINTER IS LOADED INTO TSD6 AND 

1340 SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 

1341 THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATIO 

1342 CLASS (IN FACT, THE TS04 NEVER SEES THIS ERROR) 

1343 BECAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 

1344 COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 

1345 NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 

1346 OF EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 

1347 BUG. 

1349 11 NXM 4/5 NON-EXISTENT MEMORY. SET BY THE TU80 WHEN 

1350 TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 

1351 WHICH DOES NOT EXIST. NAY OCCUR WHEN FETCHING 

1352 THE COMMAND PACKET, FETCHING OR STORING DATA, 

1353 OR STORING THE MESSAGE PACKET. 
1354 

1355 10 NBA S NEED BUFFER ADDRESS. WHEN SET, INDICATES THAT 

1356 THE TS04 NEEDS A MESSAGE BUFFER ADDRESS. THIS 

1357 BIT IS CLEARED DURING THE SET CHARACTERISTICS 

1358 COMMAND (IF A GOOD ADDRESS WAS GIVEN). 

1360 09 A17 S BUS ADDRESS BIT 17. A17 AND A16 (BIT 08) TRACK. 
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1361 

1362 

1363 

136A 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 
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SEO 0029 



08 A16 S 

07 SSR S 

06 OFL S.1«3 

05 FC1 7 



04 FCO 7 
03 TC2 S 



02 
01 
00 



TCI 
TCO 



S 
S 



THE VALUES OF BITS 17 AND 16 OF THE TSBA 
REGISTER. 

BUS ADDRESS BIT 16. SEE A17 (BIT 09). 

SUB-SrSTEH READY. WHEN SET, INDICATES THAT THE 
TU80 SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COWAND POINTER. 

OFF-LINE. WHEN SET, INDICATES THAT THE TS04 IS 
OFF-LINE AND UNAVAILABLE FOR ANY TAPE MOTION 
COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 
OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 

FATAL TERMINATION CLASS 01. FCl AND FCO (BIT 
04) ARE USED TO INDICATE THE TYPE OF FATAL 
ERROR WHICH HAS OCCURRED ON THE TS04. THESE 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 

FATAL TERMINATION CLASS 00. SEE FC1 (BIT 05). 

TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
THE TCI AND TCO BITS, ACT AS AN OFFSET VALUE 
WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS 
ON A COMMAND. EACH OF THE EIGHT POSSIBLE 
VALUES OF THIS FIELD REPRESENT A PARTICULAR 
CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
APPLICABLE* RECOVERY PROCEDURES. THE CODE 
PROVIDED IN THIS FIELD IS EXPECTED TO BE 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 

TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 

TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 

NOT USED. 



UNIBUS ADDRESS ♦ 2 - WRITE ONLY 
SUBSYSTEM INITIALIZE 
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1409 
1410 

1411 6.3.3 EXTEhDED STATUS REGISTER 0 (XSTATO) 

1412 

1413 

1414 

1415 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 

♦»««♦ ^....f...^....^^ 4.... 

1417 ITHX! !RlS!LET!RLL! !yLE!NEF!ILC! 'iLAiNOT'ONL! JIE !VCKIPEO! !WLK!BOT! 

1418 ''''!!!!!!!!.'!!!!•'■' ■' •' 

1419 <«■— -i ...4....^ 4....4....4. 

1420 
1421 

1422 BIT NAME TCC DEFINITION 

1423 

1425 15 TNK 5,2 TAPE HARK DETECTED. SET WHENEVER A TAPE "MRK 

1426 UAS DETECTED DURING A READ, SPACE, OR SKIP 

1427 COnNAND AND AS A RESULT OF THE WRITE TAPE 9«ARK 

1428 OR WITE TAPE MARK RETRY COfftANOS. 
1429 

1430 14 RLS 2 RECORD LENGTH SHORT. THIS BIT INDICATES THAT 

1431 EITHER THE RECORD'S LENGTH WAS SHORTER THAN THE 

1432 BYTE COUNT ON READ OPERATIONS, A SPACE RECORD 

1433 OPERATION ENCOUNTERED A TAPE flARK OR BOT BEFORE 

1434 THE POSITION COUNT WAS EXHAUSTED, OR A SKIP 

1435 TAPE MARKS COWIAND WAS TERMINATED BY 

1436 ENCOUNTERING BOT OR A DOUBLE TAPE NARK (IF THAT 

1437 OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 

1438 EXHAUSTING THE POSITION COUNTER. 
1439 

1440 13 LET 2 LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 

1441 MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 

1442 MARKS ARE DETECTED OR WHEN MOVING OFF OF BOT 

1443 AND THE FIRST RECORD ENCOUNTERED IS A TAPE 

1444 MARK. THE SETTING OF THIS BIT WILL NOT OCCUR 

1445 UNLESS THIS MODE OF TERMINATION IS ENABLED 

1446 THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 
1447 

1448 12 RLL 2 RECORD LENGTH LONG. WHEN SET, THIS BU 

1449 INDICATES THAT THE RECORD READ WAS LONGER THAN 

1450 THE BYTE COUNT SPECIFIED. 

1451 

1452 11 WLE 3,6 WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 

1453 WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 

1454 DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 

1455 LOCK SWITCH ACTIVATED DURING THE OPERATION. 

1456 

1457 10 NEF 3 NON-EXECUTABLE FUNCTION. WHEN SET, INDICATES 

1458 THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 

1459 ONE OF THE FOLLOWING CONDITIONS: 

1461 - THE COMMAND SPECIFIED REVERSE TAPE 

1462 DIRECTION BUT THE TAPE WAS ALREADY 

1463 POSITIONED AT BOT. 

1464 - THE ISSUING OF ANY COMMAND, EXCEPT REWIND, 
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1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 

1477 09 ILC 3 

1478 

1479 

1480 

1481 

1482 08 ILA 3 

1483 

1484 

1485 07 NOT USED 

1486 

1487 06 ONL S 

1488 

1489 

1490 05 IE S 

1491 

1492 

1493 

1494 04 VCK S 

1495 

1496 

1497 

1498 

1499 

1500 03 RED S 

1501 

1502 

1503 

1504 

1505 

1506 02 ULK S,3 

1507 

1508 

1509 

1510 

1511 01 BOT S,3 

1512 

1513 

1514 

1516 00 EOT S,2 

1517 

1518 

1519 

1520 



SEQ 0031 



UNLOAD, OR A COMMAND WITH THE CLEAR VOLUME 
CHECK (CVC) BIT SET. WHEN THE VOLUME CHECK 
BIT IS SET. 

- ANY COMMAND, EXCEPT GET STATUS OR DRIVE 
INITIALIZE, WHEN THE TS04 IS OFF-LINE. 

- ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS - WLS). 

ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04. 

ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED.) 



ON LINE. WHEN SET, INDICATES THAT THE ^S04 IS 
ON-LINE AND OPERABLE. 

INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
COMMAND. 

VOLUME CHECK. WHEN SET, INDICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
(CVC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 

PHASE ENCODED DRIVE. WHEN SET, INDICATES THAT 
THE TS04 IS CAPABLE OF READING AND WRITING ONLY 
1600 BPI PHASE ENCODED DATA. WHEN RESET, 
INDICATES THAT THE TS04 HAS ONLY 800 BPI NR2I 
DATA CAPABILITIES. 

WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 

BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
DENOTED BY THE BOT REFLECTIVE STRIP ON THE 
TAPE. 

END OF TAPE. THIS BIT IS SET WHENEVER THE TAPE 
IS POSITIONED AT OR BEYOND THE END OF TAPE 
REFLECTIVE STRIP. DOES NOT RESET UNTIL THE 
TAPE PASSES OVER THE REFLECTIVE STRIP IN THE 
REVERSE DIRECTION UNDER PROGRAM CONTROL. 
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1 JCC 








h L 




1 

1 JC** 




1 






1 






1S?7 
1 3c f 




15 


1 

1 3cO 




1 jcy 










•DLT' • 

• Irk ■ • • 






1 1 1 


1 3i9C 




^•>»— ^ 


1 J^J 






1 J J** 






1 3 J J 


BIT 


NAME TCC 


1 jjO 




WW* 


1 3 J' 


15 




1 j30 
















1 3*» 1 








14 




1 J"* J 




1^44 


13 




1 


COft s 


1^46 








12 






CRS 4 














1 J J 1 


















1^^4 






1 J J J 


11 


NOT USED 


1 


10 




1 jji 


DBF 4 








1SS9 






1 ^Uv 






1 

1 1 


09 






NOT USED 








1 ^U*f 


08 


NOT USED 

■VW • WwWVr 








1 ^QW 


07 


NOT USED 

■W"-* • WWfcV 


ISA? 






1 ^DO 


06 

WW 


NOT USED 

■«W ■ WWbV 


1 ^O' 


OS 




1570 


NOT I'SED 


1571 






1572 


04 


NOT USED 


1573 


03 




1574 


NOT USED 


1575 






1576 


02 


NOT USED 


1577 







14 13 12 11 10 09 08 07 06 05 04 03 02 01 

i....^....^...^. 

!C0R!CRS! ! .'DBF! ! • ! ! II I I II lUNC! 
I I II I I II I I 11 I I II j ) 



DEFINITION 



DATA LATE. SET WHEN THE I/O SILO IS FULL ON A 
READ OR ENPTr ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE UNI6US LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TS04. 

NOT USED. 

CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 

CREASE DETECTED. FOR NRZI, ALL DATA TRACKS 
DROPPED OUT FOR MORE THAN THREE CHARACTER TIMES 
BUT FOR LESS THAN .1 INCHES OF TAPE. FOR PE, 
EIGHT OUT OF NINE DATA TRACKS WENT DEAD FOR 
LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
WAS DETECTED. 



DESKEW BUFFER FAIL: THIS BIT IS SET WHEN ONE OF THE 
DESKEW BUFFERS FAILS TO SET OUTPUT READY WITHIN 20 
MICROSECONDS AFTER BEING ENABLED. THE DEAD TRACK 
BITS INDICATE ON WHICH TRACKS THIS FAILURE OCCURRED. 



H 
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1578 01 JNC 4 

1579 

1580 

1583 

1585 00 NTE A 

1586 

1587 

1588 

1589 VPE A 

1590 

1591 



SEQ 0033 

UNCORRECTABLE DATA. SET ON PE DRIVES W!4EN A 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 
DEAD TRACK INDICATION. 

CRC ERROR. SET ON NRZI DRIVES WHEN THE CRC 
CHARACTER WAS POUND TO BE IN ERROR. 

nULTI-TRACK ERROR. SET ON PE DRIVES WHEN MORE 
THAN ONE DEAD TRACK OCCURRED IN THE PREAWLE OR 
IN THE DATA FIELD. 

VERTICAL PARITY ERROR. SET ON NRZI DRIVES WHEN 
A CHARACTER DID NOT CONTAIN AN ODD NUWER OF 
ONE BITS. 
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1593 6.3.S EXTENDED STATUS REGISTER 2 (XSTAT2) 

1594 

1595 

1597 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 

1599 !OPH! .'SIP'BPEfCAF.' ! jyCF! ! !DTPJDT7IDT6! !DT5!DT4!0T3! !DT2IDTi; 

1600 ! J ! •' ! ! ! •' • • • • ' • ' • • • • • 

1602 

1604 BIT NAME TCC DEFINITION 

1605 

1|Lgx 

1607 15 QPM S OPERATION IN PROGRESS. (TAPE MOVING) 

1609 14 SIP 7,f2 SILO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 

1610 ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 

1611 MESSAGE PACKET. 

1613 13 BPE 7.F2 SERIAL BUS PARITY ERROR AT DRIVE. SET BY THE 

1614 TU80 WHEN A PARITY ERROR IS DETECTED ON DATA 

1615 TRANSMITTED FROM THE ADAPTOR CARD TO THE TU80. CAUSES FA 

1616 CLASS 2 BECAUSE THE ERROR NIGHT HAVE OCCURRED DURING 

1617 THE TRANSMISSION OF THE MESSAGE PACKET. 

1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 



12 


CAF 


7 


CAPSTAN ACCELERATION FAIL. AFTER ACCELERATING 
TAPE FOR .2 INCHES, THE TAPE SPEED IMS CHECKED 
AND FOUND TO BE OUT OF TOLERANCE BY MORE THAN 
10X. 


11 






NOT USED. 




10 


UCF 


7 


THE URITE BOARD IS NOT EMPTYING THE I/O SILO AT 
THE PROPER RATE. THIS ERROR CAN BE THE RESULT OF 
THE yRITE BOARD CLOCK NOT BEING TURNED ON (BROKEN 
HARDWARE). 


09 






NOT USED. 




08 


DTP 


S 


DEAD TRACK PARITY. THE BITS DTP THROUGH DTO 
INDICATE VHICH TRACK(S) WENT DEAD, IF ANY, 
DURING THE LAST DATA TRANSFER OPERATION. IF 
DESKEU BUFFER FAIL (DBF) IS SET. THESE BITS 
INDICATE WHICH CHANNEL FAILED. 


07 


DT7 


S 


DEAD TRACK 7. 


SEE OTP. 


06 


DT6 


S 


DEAD TRACK 6. 


SEE DTP. 


05 


DT5 


S 


DEAD TRACK 5. 


SEE OTP. 


04 


DT4 


S 


DEAD TRACK 4. 


SEE OTP. 


03 


DT3 


S 


DEAD TRACK 3. 


SEE OTP. 
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1^50 02 DT2 S DEAD TRACK 2. SEE DTP. 

1652 01 DTI S DEAD TRACK 1. SEE DTP. 

1^54 00 DTO S DEAD TRACK 0. SEE DTP. 

NOTE: ON A SET CHARACTERISTICS COmAND, THE UCOOE LEVEL IS RETURNED 
IN DT7 THRU DTO. ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT (INTERNALLY R7) IS RETURNED IN DT7 THRU DTO. 
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6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 

15 14 13 12 11 10 09 08 07 06 OS 04 03 02 01 

4....^ 4...4....4..-4 ^....^...^...^ 

! MICRO DIAGNOSTIC ERROR CODE .' !0PI! !REV' !DCK! i ! ! 

I '!!!!!!!!! 

BIT NAME TCC DEFINITION 

08 7 MICRO DIAGNOSTIC ERROR CODE. THERE IS ONE OPERATIONAL 

ERROR. 337(8) OR LEFT JUSTIFIED TO 157400(8) IN A 
16-BIT REGISTER (CAPSTAN RUNAWAY) « WHICH IS DISPLAYED 
HERE. THIS MEANS THAT THE CAPSTAN WAS COMMANDED TO 
STOP BUT EXCEEDED THE ALLOWABLE STOPPING WINDOW. DRIVE 
MUST BE INITIALIZED TO BE USED FOR TAPE MOTION AGAIN. 



1660 




1661 


6.3.6 


1662 


1663 




1664 




1665 




1666 




1667 




1668 




1669 




1670 




1671 




1672 




1673 


BIT 


1674 




1675 


15 


1676 


1677 




1678 




1679 




1680 




1681 




1682 


07 


1683 


1684 


06 


1685 


1686 




1687 




1688 


05 


1689 


1690 




1691 


04 


1692 


1693 


03 


1694 


1695 




1696 




1697 




1698 




1699 


02 


1700 


1701 


01 


1702 


1703 


00 


1704 


1705 




1706 




1707 




1708 


t 



NOT USED 



OPI 6 OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 

OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE. 

REV S DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 

IS 0 IF REWIND OR FORWARD) 

NOT USED 

DCK 5,6 DENSITY CHECK. SET ON PE DRIVES WHEN A PE 
IDENTIFICATION BURST WAS NOT DETECTED WHEN 
MOVING OFF OF BOT. SET ON NR2I DRIVES WHEN A 
NON-NRZI IDENTIFICATION BURST WAS FOUND WHEN 
MOVING OFF OF BOT. 

02 NOT USED 
NOT USED 

RIB 2 REVERSE INTO BOT. A READ, SPACE, OR SKIP 

COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 
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1721 
1722 
1753 
1755 

1756 002000 

1758 00200C 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1774 

1775 002000 

(4) 002000 

(4) 002000 103 

(4) 002001 132 

(4) 002002 124 

(4) 002003 125 

(4) 002004 126 
(6) 002005 000 
(6) 002006 000 
(5 ) 002007 000 

(5) 002010 

(4) 002010 102 

(5) 002011 

(4) 002011 060 

(5) 002012 

(4) 002012 000001 

(5) 002014 

(4) 002014 005000 

(5) 002016 

(4) 002016 027202 

(5) 002020 

(4) 002020 027254 

(5) 002022 

(4) 002022 002176 

(5) 002024 

(4) 002024 002204 

(5) 002026 

(4) 002026 030670 

(5) 002030 

(4) 002030 000000 

(5) 002032 

(4) 002032 000000 

(5) 002034 

(4) 002034 000001 

(5) 002036 

(4) 002036 000000 

(5) 002040 

(4) 002040 002124 

(5) 002042 

(4) 002042 000340 

(5) 002044 
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.TULE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 

.ENABL ABS.ANA 
= 2006 
BGNMOD 



SEO 0037 



002000 



THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

9 

POINTER BGNRPT.BGNSU,BGNSFT.BGNAU,BGNDU,BGNSETUP 



HEADER CZTUV.8.0,5000.1.INTPRI 
LSNANE:: .DIAGNOSTIC NAME 



L$REV:: 

LSDEPO:: 

LSUNIT:: 

LSTIML:: 

LSHPCP;: 

L$SPCP:: 

LSHPTP:: 

L$SPTP:: 

LSLADP:: 

L$STA: : 

LSCO: : 

LSDTYP:: 

LSAPT:: 

LSDTP:: 

L$PRIO:: 

LSENVI : : 



REVISION LEVEL 
0 

NUMBER OF UNITS 
LONGEST TEST TIME 
POINTER TO H.U. QUES. 
POINTER TO S.U. QUES. 
PTR. TO DEF. H.U. PTABLE 
PTR. TO S.U. PTABLE 
DIAG. END ADDRESS 
RESERVED FOR APT STATS 

DIAGNOSTIC TYPE 

APT EXPANSION 

PTR. TO DISPATCH TABLE 

DIAGNOSTIC RUN PRIORITY 

FLAGS DESCRIBE HOW IT WAS SETUP 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.ASCII 

.UORD 

.WORD 

.UORD 

.UORD 

.UORD 

.UORD 

.WORD 

.UORD 

.UORD 

.UORD 

.WORD 

.WORD 

.WORD 



/C/ 
til 

n/ 
/u/ 

/V/ 
0 
0 
0 

/B/ 

/o/ 

TSPTHV 

5000 

LSHARD 

LSSOFT 

L$HW 

LSSU 

L$LAST 

0 

0 

1 

0 

LSOISPAT 
INTPRI 
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(4) 
(5) 
(4) 
(5) 
(4) 
(3) 
(5) 
(4) 
(5) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
C5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
(5) 
(4) 
1776 



MACYll 30(1046) 12-JUL-83 
PROGRAM HEADER 





nnnnnn 


LSEXPI : : 


UUcU*iO 








LSMREV:: 


WCvJv 




yjvcvjv 






00^ 


L$EF:: 








vUUVWw 




\J\JC\lJ'* 


nnnnnn 


L$SPC:: 


00?0S6 






000000 

wVwVwV 


LSOEVP:: 


onpo60 

vvCwwv 




vvCvUv 


002166 

WWW I WW 


LSREPP:; 


007062 




00706? 


01 7366 

W ■ ■ ^wW 


L$EXP4:: 


007064 






000000 

W w WW 


L$EXP5:: 


007066 




00P066 


000000 

wwwWwW 


LSAUT:: 


007070 




002070 


023246 

Vw^w~W 


L$DUT:: 


002072 




002072 


023202 


L$LUN:: 


002074 




002074 


000000 


LSDESP:: 


002076 




002076 


002140 


LSLOAD:: 


002100 




002100 

www 1 WW 


104035 


LSETP:: 


002102 




002102 

www I Vfc 


000000 


LSI CP; : 


002104 

www ■ w^ 




002104 

Www 1 W~ 


021222 


LSCCP:: 


002106 

www I WW 




002106 

www I WW 


023140 


LSACP: : 


002110 

w Ww 1 I w 




002110 

www 1 1 w 


022516 


LSPRT;: 


002112 




002112 


021214 


LSTEST:: 


002114 




002114 


000000 


LSDLY:: 


002116 




002116 


000000 


LSHIHE:: 


002120 




002120 


000000 





26-1 

.•EXPANSION WORD 
;SVC REV AND EDIT 0 

;DIAG. EVENT FLAGS 

; POINTER TO DEVICE TYPE LIST 
:PTR. TO REPORT CODE 



PTR. TO ADD UNIT CODE 
PTR. TO DROP UNIT CODE 
LUN FOR EXERCISERS TO FILL 
POINTER TO DIAG. DESCRIPTION 
^GENERATE SPECIAL AUTOLOAD EHT 
; POINTER TO ERRTBL 
;PTR. TO INIT CODE 
rPTR. TO CLEAN-UP CODE 
;PTR. TO AUTO CODE 
;rTR. TO PROTECT TABLE 
;TES1 NUMBER 
.•DELAY COUNT 
;PTR. TO HIGH HEN 



SEQ 0038 



WORD 


0 


.WORD 


0 


.BYTE 


C$REVISI 


• BYTE 


CSEDIT 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


l$DVTYP 


.WORD 


LSRPT 


.WORD 


0 


.WORD 


0 


.WORD 


LSAU 


.WORD 


LSDU 


.WORD 


0 


.WORD 


LSDESC 


E«T 


ESLOAD 


.WORD 


0 


.WORD 


LSINIT 


.WORD 


LSCLEAN 


.WORD 


LSAUTO 


.WORD 


LSPROT 


.WORD 


0 


.WORD 


0 


.WORD 


0 



czTuve.Pii 1 


178A 




1785 




1786 




1787 




1788 




1789 




1790 




1791 


002122 


(4) 


002122 


(3) 


002124 


(6) 


002124 


(6) 


002126 


(6) 


002130 


(6) 


002132 


(6) 


002134 


(6) 


002136 


1792 




1799 




1800 




1801 




1802 




1803 




1804 




1805 




1806 


002140 


(4) 


002140 


(3) 


002140 


(3) 


002146 


(3) 


002154 


(3) 


002162 


C2) 




1807 


002166 


(4) 


002166 


(3) 


002166 


(2) 





000006 

023342 
024730 
025404 
026042 
026206 
026340 
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09:44 



N 3 
PAGE 27 



SEQ 0039 



.SB1TL DISPATCH TABLE 

*THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 



DISPATCH 6 
L$DISPATCH:: 



; SIX TESTS 



.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.yORD 



T1 
r2 
13 
T4 
T5 
T6 



.SBTTL DESCRIPTIVE TEXT 



jrLlNES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVI 



DESCRIPT 



002174 



000 



LSDESC:: 



DEVTYP 
L$OVTYP:i 



<DATA RELIABILITY TEST> 



<TU80> 



.ASCIZ /DATA RE 



.EVEN 



.ASCI2 /TU80/ 
.EVEN 
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1810 
1811 
1812 
1813 
18U 
1815 
1816 
1817 

1818 0021 7A 

(3) 002174 000002 

(3) 002176 

(3) 002176 
1819 
1825 

1826 002176 172522 

1827 002200 00022A 
1828 

1829 002202 
(3) 002202 
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DEFAULT HARDWARE P-TABLE 



B 4 
PAGE 28 



SEQ 0040 



,S61TL DEFAULT HARDWARE P-TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVJCE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



B6NHW DFPTBL 



.WORD LlOOOO-L 



LSHW: : 
DFPTBL:: 



172522 
224 



LI 0000: 



;TSSR ADDRESS. 
: VECTOR ADDRESS. 



ENDHW 
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:EQ 0041 



i83c 






.SB1TL SOFTWARE P-TABLE 


1833 










io3A 






;♦♦ 




i OTC 

lo35 






: THE SOFTWARE 


P-TABLE C 


io3o 






: PARAilETERS THAT CAN BE 


\o5r 












002202 




OuNSW 


CCDTDI 

SrrloL 


(3) 


002202 


AAAA/ 7 

000043 


LvSW: : 




' 3) 


A A Ay 

002204 






i3J 


AAOony 
UUccUh 




or r loL : ! 


1 




AA'JOAy 


AA1 

uui 


n DC 1 /I m » DVTC 




aat6ac 


AAA 
UUU 


NnANv: : .oTic 


A 
U 




UUeeUo 


AAA 


HAc:: .OTIC 


0 


IB/ B 


rtn55rt7 

UUccUr 


AAA 


cnC vcn : : •otic 


A 
U 


1 By Q 

10*17 




AAA 


IDCr • • DVTC 

inct:: .otic 


A 
U 


1 Bcn 


Wcci 1 


AA1 

UUI 


DAftTCU** DVTC 

BAD I5W: : .OT 1 c 


1 

1 


1 BC1 


AA001 0 

UUcclc 


AAA 
UUU 


nfklT • • DVTC 

Olni • • .OT ic 


A 
U 


1 BC? 


AA051 1 

UUctlj 


AAA 
UUU 


Of DC • • DVTC 
rlNC • • .OT 1 C 


A 
U 


1 BCT 

I033 


AA391Z 


AAA 
UUU 


DAIILIOT>> DVTC 
N/*nWt 1 ••.OTIC 


A 
U 


1 BCA 


AA091 Q 
UUccl 3 


AAA 
UUU 


ruAci A • • DVTC 

tnOrLO^ • .OT IC 


A 

w 


1 BCC 


AA331 A 
UUcc 1 0 


AAA 
UUU 


RVTF 
• OT 1 C 


A 




nA3P17 
UUcc 1 r 


nnn 

UUU 


RVTF 

• OT 1 C 


A 

V 


lOJI 






• C VCn 








A An AAA 
UUvU*tU 




I'* 

1 Jm 


IOj7 


\n/cccc 


UVA/U 1 J 


Uni/I/ • • mWvflV 


1SAA 


y/Vc.c.c.'* 


OAAAAI 


• WvnV 


1 
1 


lOO 1 


AA799A 
UUcccO 


nnnnni 

UUUVA/ 1 


uoRn 

• WUnl' 


1 
1 


IMA? 


nA??Tn 






RAMP 




Wcc3c 


AAAAAZ 




L 
H 






AA^AAA 
UUmUvU 


• WUnV 


VA 1 irai 




AA99tA 


A7AAAA 
Uf 0*»wU 


unoti 


X3nAn 


lOOO 


AA99Z,A 


AAAAA7 


uAon 

• wUnW 


DAMD 


lOOr 




AAAAA7 
UUUUUj 


uAon 


7 
J 


lOOO 




AAA AAA 


UADn 


nATTlUT 

UAi tni 


1 BAO 


AA99Z,A 


A7AAAA 

Uf o*»uu 


UADA 


7 5 AAA 


1 B7n 


AA99CA 


AAAAA7 


LIAOn 


DAMD 


1 B71 

lO' 1 




A AAAA 7 
UUUvUc 


UADn 


c 


1B77 

lore 




AAA AAA 


UADn 




lOf 3 


AA99CA 


A7AAAA 
Uf 0'»UU 


UADn 

.WUnl/ 


7pAAA 
^cUUU. 


1 B7/ 


AA93AA 


AAAAA7 
UUUUU f 


UADn 




1 B7C 


AA33A9 


AAAA1 C 


uAon 


1 7 

1 3m 


1 B7A 




AAAAA1 

UUUuUl 


uAon 


1 

]* 


1 fl77 

lOr f 


AA99AA 


AAAAA1 


UADn 
• WUKU 


1 


1 fi7fi 


AA007A 


AAAAA7 
UUUl'Uf 


WORD 


RANP 


1 B7a 

Ipf 7 


AA5575 


AAAAl'X 


.WORD 


27. 


1 BSfl 


AA33 /A 


AAA AAA 


.WORD 


DATCNT 


1 BB1 

lOOl 


AA037A 


A7AAAA 

Uf o«»uu 


.WORD 


32000. 


1 BBO 


AA07AA 

UU£3UU 


AAAAA7 
UUUUU f 


.WORD 


RANP 






000033 


.WORD 


27. 


1884 


002304 


004000 


• WORD 


DATCNT 


188S 


002306 


076400 


.WORD 


32000. 


1886 


002310 


000007 


.WORD 


RANP 


1887 


002312 




ENDSW 




(3) 


002312 




L10001: 




1888 


002312 




ENDMOD 





• WORD LI 0001 -L 



CLEAR COUNTERS FLAG. 

RESET RANDOM VARIABLES EACH PASS FLAG. 

HALT AFTER EACH COMMAND FLAG. 

ENABLE RECOVERABLE ERROR PRINTS FLAG. 

INHIBIT ERROR RECOVERY FLAG. 

BAD TAPE SWITCH TO REWRITE ON SAME SPOT & DETEC 
DISABLE INTERRUPTS FLAG. 

INHIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 

ENABLE OPTIONAL RAM DUMP 

CHANGE CtID SEQ TABLE FLAG. 

SPARE 

SPARE 

CHARACTERISTICS CODE (DEFAULT = 40). 

COMMAND 2 (DEFAULT s REWIND). 

BYTE COUNT 

NUMBER OF OPERATIONS 

PATTERN 

COMMAND 3 (DEFAULT = WRITE) 

BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

NUMBER OF OPERATIONS (DEFAULT = 32000). 

PATTERN (DEFAULT - RANDOM) • 

COMMAND 4 (DEFAULT = READ REV). 

BYTE COUNT (DEFAULT =: MAX BUFFER SIZE)^ 

NUmER OF OPERATIONS (DEFAULT = 32,000) • 

PATTERN (DEFAULT = RANDOM) • 

COMMAND S (DEFAULT = READ FWO)^ 

BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

NUMBER OF OPERATIONS (DEFAULT = 32,000) • 

PATTERN (DEFAULT = RANDOM) • 

COMMAND 6 (DEFAULT = REWIND) • 

BYTE COUNT 

NUMBER OF OPERATIONS 

PATTERN 

END OF CMD SEQ TABLE CODE (DEF) OR CMD " 
BYTE COUNT (DEFAULT - MAX BUFFER SIZE^ 
NUMBER OF OPERATIONS (DEFAULT = 32000). 
PATTERN (DEFAULT = RANDOM). 
END OF CMD SEQ TABLE CODE (DEF) OR CMD 8 
BYTE COUNT (DEFAULT = MAX BUFFER SIZE)^ 
NUMBER OF OPERATIONS (DEFAULT = 32000) • 
PATTERN (DEFAULT = RANDOM). 



PROGRAM HEADER AND TABLES 
CZTUVB.P11 12-JUL-83 09:26 

1901 
1902 
1905 



HACrll 



30(1046) 
SOFTWARE 



12-JUL-83 
P-TABLE 



09:44 



D 4 
PAGE 



29-1 



SEQ 0042 



19 
19 
19 
19 
19 
19 
19 
19 
1920 



002312 



002312 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
000035 
000034 



000340 



.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 

BGNMOD 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 



: BIT DIFINITIONS 



BIT15== 
BIT14« 
BIT13== 
BIT12« 
BIT11== 
BIT10« 
BIT09== 
BIT08" 
BIT07SS 
BIT06-- 
BIT05« 
BJT04» 
BIT03« 
BIT02=s 
BITOIss 
BITOO» 

BIT9~ 
BIT8== 
BIT7« 
BIT6== 
BITS— 
BIT4~ 
BIT3« 
BIT2« 

Bin— 

BITO« 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT09 
B1T08 
BJT07 
BIT06 
B1T05 
BIT04 
BIT03 
BIT02 
eiTOI 
BITOO 



: EVENT FLAG DEFINITIONS 

; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START— 32. 

EF.RESTART== 31. 

EF.CONTINUE« 30. 

EF.NEW== 29. 

EF.PUR-- 28. 



: PRIORITY LEVEL DEFINITIONS 
PRl07s~ 340 



START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POUER-FAIL/POUER-UP OCCURRED 



GLOBAL AREAS 


MACY11 


C2TUVB.P11 


12-JUL-83 


(1) 


000300 


(1) 


000240 


(1) 


000200 


(1) 


000140 


(1) 


000100 


(1) 


000040 


(1) 


000000 


(1) 




(1) 




(1) 




(1) 


000004 


(1) 


000010 


(1) 


000020 


(1) 


000040 


(1) 


000100 


(1) 


000200 


(1) 


000400 


(1) 


001000 


(1) 


002000 


(1) 


004000 


(1) 


010000 


(1) 


020000 


(1) 


040000 


(1) 


100000 


1921 




1929 




1930 




1931 




1932 




1933 




1934 




1935 




1936 




1937 




1938 




1939 




mo 




mi 




m2 




1943 


100000 


1944 


040000 


1945 


020000 


1946 


010000 


1947 


004000 


1948 


002000 


1949 


001000 


1950 


000400 


1951 


000200 


1952 


000100 


1953 


177717 


1954 


177761 
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GLOBAL EQUATES SECTION 



E 4 



SEQ 0043 



PRI06=- 
PRI05" 
PRI04== 
PRl03=s 
PR I 02== 
PRI01" 
PR I 00== 



300 

240 

200 

140 

100 

40 

0 



.•OPERATOR FLAG BITS 



EVL== 
L0T« 
ADR== 
IDU== 
ISR» 
UAMs= 
BOE== 
PNT== 
PRI== 
IXE== 
IBE== 
IER== 
LOE== 
HOE=:= 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 



REGISTER USAGE. 



RO 
R1 
R2 
R3 
R4 
R5 
R6 
R7 



PASSES PARAMETERS TO/FROH DIAGNOSTIC SUPERVISOR. 

COnnAND SEQUENCE TABLE POINTER. 

GENERAL PURPOSE REGISTER. 

GENERAL PURPOSE REGISTER. 

GENERAL PURPOSE REGISTER. 

CURRENT LOGICAL DEVICE NUMBER X 2. 

STACK POINTER. 

PROGRAM COUNTER. 



;THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 



TS.SC== 
TS.UPE= 
TS.SPE= 
TS.RMR= 
TS.NXM= 
TS.NBA= 
TS.A17* 
TS.A16= 
TS.SSR* 
TS.OFLs 
TSC.FCC 
TSC.TCC 



100000 
=40000 
=20000 
=10000 
=4000 
=2000 
=1000 
=400 
=200 
=100 
=s17?717 
==177761 



SPECIAL CONDITION BIT. 

UNIBUS PARITY ERROR 

SERIAL BUS PARITY ERROR. 

REGISTER MODIFICATION REFUSED. 

NON-EXISTENT MEMORY. 

NEED BUFFER ADDRESS. 

BUS ADDRESS BIT 17. 

BUS ADDRESS BIT 16. 

UNIT READY BIT. 

OFF LINE. 

FATAL CLASS CODE MASK. 
TERMINATION CLASS CODE MASK. 
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1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
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100000 
040000 
020000 
010000 
004000 
004000 

002000 
001000 
000400 
000200 
000100 
000100 

000040 
000040 



000020 
000020 
000010 
000004 
000002 
000001 



000200 
000040 
000020 
000040 



000004 
000006 
000010 
000012 
000014 



100000 
040000 
020000 
010000 
000100 
000002 
000001 



100000 
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F 4 



SEQ 0044 



;THfc FOLLOUIi^G ARE BIT DEFINITIONS FOR THE COWIANO UORO 



ACK.C=-1 00000 

IVC.C:=40000 

OPP.C==20000 

SUB. C~1 0000 

NOD.C3-«4000 

BRF.C»4000 

HOD.C2==2000 

HOD.C1~100C 

NOD. CO -=400 

IE.C»200 

FHT.C1«100 

VFY.C«100 

F«T.C0=s40 
JHP.C==40 



CH0.C4==20 

DLY.C«20 

CH0.C3==10 

CHD.C2==4 

CHD.C1~2 

CHD.C0~1 



.•ACKNOWLEDGE BIT 
; CLEAR VOLUME CHECK. 
.•OPPOSITE BIT 
;SUAP BYTE BIT 
:nODE BIT 3 

:BYTE/REC0RD/FILE COUNT FLAG BIT. NOT USED 

;BY TU80 BUT USED INTERNALLY BY THIS PROGRAM ONL 

;MODE BIT 2 

;FIODE BIT 1 

:NODE BIT 0 

;INTEHRUPT ENABLE 

:FOmAT BIT 1 

.•WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
;N0T USED BY TU80. 
.•FORMAT BIT 0. 

.•JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
:A CERTAIN LOCATION IN THE COMMAND SEQUENCE 
.•TABLE. INTERNAL USE ONLY. 
.•COMMAND BIT 4 

.•INSERT DELAY. INTERNAL USE ONLY. 
.•COMMAND BIT 3 
.COMMAND BIT 2 
.•COMMAND BIT 1 
.•COMMAND BIT 0 



BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 



CH.ESS==200 
CH.EAI==40 
CH.ERI==20 
DFTSCH^-CH.EAI 



.•ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EO 
.•ENABLE ATTENTION INTERRUPTS. 
.ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
.•DEFAULT CHARACTERISTICS CODE. 



.THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
;IN THE MESSAGE BUFFER. 



HS.RFC=s4 

MS.XS0--6 

MS.XS1«10 

KS.XS2s=12 

MS.XS3«1« 



.•RESIDUAL FRAME COUNT. 
;EXT STATUS REG 0 
:EXT STATUS REG 1 
;EXT STATUS REG 2 
:EXT STATUS REG 3 



.THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 



X0.TMK==1 00000 

X0.RLS==40000 

XO.LET==20000 

X0.RLL==10O0O 

X0.ONL==10O 

X0.B0T~2 

X0.EOT==1 



.•TAPE MARK. 

.'RECORD LENGTH SHORT. 

.•LOGICAL EOT. 

; RE CORD LENGTH LONG. 

:0N LINE BIT. 

:BOT BIT. 

;EOT BIT. 



.•THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 
X2.0PM:-1 00000 .-OPERATION IN PROGRESS. TAPE MOVING 
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2012 
2013 
20H 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
203A 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
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000010 
157400 
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G 4 



SEQ 0045 



000000 
000002 
000004 
000006 



000340 
000010 

000016 
000020 
004000 



1 77740 
000007 
000020 
000020 
153624 
032561 
177774 
177740 



100013 
104001 
104401 
104005 
104105 
104010 
104410 



;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 



X3.DCK==10 
X3.RNy«1 57400 



.•DENSITY CHECK. 

.-CAPSTAN RUNAWAY UDIAG ERROR CODE. 



;THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMNAND 
;PACKET ENTRIES. 



CP.CHD==0 
CP.ADL==2 
CP.ADH==4 
CP.CNT«6 



:CNDPKT«0:-TU80 COMMAND. 
;CMDPKT*2»BUFFER ADDRESS LOW. 
;CMDPKTU-s8UFFER ADDRESS HIGH. 
;CKDPKT^6»BYTE/FILE/REC0RD COUNT 



MISCELLANEOUS DEFINITIONS. 



.•PRIORITY TO BE USED IN INTERRUPT STATE. 
.•ARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
.-BUFFER LENGTH. (EVEN f) 
.•MESSAGE BUFFER LENGTH IN BYTES. (EVEN #) 
.•DIAGNOSTIC COMMAND BUFFER EXTENT. 
.•MAXIMUM RECORD LENGTH IN BYTES. 
.-THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSUR 
.PROPER READ/WRITE BUFFER ALLOCATION BY THE SUPE 
.•RANDOM f OF OPERATIONS MASK. 
;CODE TO SELECT RANDOM PATTERN. 
.•READ RECOVERY ATTEMPT LIMIT. 
.•WRITE RECOVERY ATTEMPT LIMIT. 
.•CONSTANT USED TO RESET RANDOM » GENERATOR BASE. 
.•CONSTANT USED TO RESET RANDOM # SAVE LOCATION. 
.•NOT IN USE CODE FOR DEVICE STATE TABLE. 



INTPRIs=PRI07 
SCHCNT==10 

MSGCNTss16 
DIACNTs=20 
DATCNTM2048. 

RN0PSC==1 77740 
RANP==7 
RRECL--16. 
WRECL»16. 
RANBC»1 53624 
RANSCss32561 

NINUSE«1 77774 _ 

NCMD.C»ACK.C'CVC.C!0PP.C!SUB.C!M0D.C3!M0D.C2!M0D.C1!M0D.C0!IE.C!FMT.C1!FMT.C0 

;NOT "COMMAW)" BITS. 

;THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TU80 COMMAND. 

DRIs- ACK.C!CMD.C3'CMD.C1!CMD.C0 

.•DRIVE INIT. 



RDF— ACK.C!BRF.C!CNO.CO 



.•READ FORWARD 



RDR» ACK.C'BRF.CIMOD.COICMD.CO 

.READ REVERSE 

WRT» ACK.C!BRF.C!CMD.C0!CMD.C2 

.•WRITE COMMAND 

WTV=s ACK.r!BRF.C!VFY.C!CMD.C0ICHD.C2 

.•WRITE VERIFY 



SRF== ACK.C'BRF.C!CMD.C3 



.•SPACE RECORD FORWARD 



SRR— ACK.CiBRF.CiM0D.C0!CMD.C3 

.•SPACE RECORD REVERSE 



GLOBAL AREAS 
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GLOBAL EQUATES SECTION 



H 4 



SEO 0046 



206S 






2069 


i AC / A1 

105401 


DUD — 


cOfO 






20^1 








i OC/ Ai 




d\)f 5 












C\}fJ 


1 U7UU 1 


DDF — 


cUf o 












cUf 0 




DPD--= 
















1 U7UU7 




5nfl5 














107010 


Duns- 














Dnfl7 


1 ooni 7 


MRD-s 


cUOO 






cUOt 








10001 1 


UTM=s 

W ' Pi"*" 














CUT J 


10101 1 




700^ 






700^ 






c\rfo 


10^010 


ar r — — 


7007 














lOS^IO 


SFRss 


7irtrt 

£ lUU 






7101 






9in7 


100017 




710X 






710^ 






710C 
C IU7 


100A1 1 




71 OA 
C lUO 






3in7 

C 1 1 ■ f 






71 OA 


100^17 


IINI ss 


7100 






7110 






7111 
c 1 1 1 


101017 




7117 






71 H 






71 1A 


I^OOOA 




71 H 
c 1 1 7 






?116 


100006 

1 WWW 


DIAss 


2117 






2118 


000040 


JMP== 


2119 






2120 


000020 


DLY== 


2121 






2122 


}77777 


END== 



ACK.C.'BRF.C!n0D.C1!n0D.C0!CnD.C0 

.-READ REV RETRYl - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVE 

ACK.C.'BRF.C!OPP.C!HO0.C1!HOD.C0!C«D.C0 

;READ REV RETRY2 - REREAD NEXT FORWARD, IE. READ FORWARD, SPACE R 

ACK.C'BRF.CiHOD.CI.'CMD.CO 

.•READ FWD RETRYl - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, R 

ACK.C.'BRF.C!OPP.C!nOD.C1!CND.CO 

;READ FUD RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SP 

ACK.C!mD.C1!BRF.C!CnD.C2!Cm>.C0 

.-WRITE RETRY 



ACK.C!M0D.C2!CMD.C3 
ACK.C.'CnD.C3!CnD.Cl 
ACK.C!CnD.C3!CMD.C0 



; REWIND COMMAND 
.•MESSAGE BUFFER RELEASE 
;WRITE TAPE MARK. 



ACK.CiM0D.C1!CMD.C3!CMD.C0 

; WRITE TAPE MARK RETRY. 

ACK.C.'6RF.C!M0D.C1!CMD.C3 

; SPACE FILE FORWARD 

ACK.Ci6RF.C!MOD.C0.'NOD.Cl!CMD.C3 

.'SPACE FILE REVERSE 

ACK.CICMD.C0!CMD.Cl!CMD.C2iCMD.C3 

;GET EXTENDED STATUS 

ACK.C.'MOD.C0!CMO.C3!CMD.C0 

.•ERASE 3 INCHES OF TAPE 

ACK.C!MOD.C0!CM0.C3!CMD.C1 

.•UNLOAD COMMAND 

ACK.C.'MOD.CI !CMD.C3!CMD.C1 

.•ERASE TAPE. 

ACK.C!CVC.C!CM0.C2 ;SET DEVICE CHARACTERISTICS. 

ACK.r.'CMD.C2!CMD.Cl ;DIAGNOSTICS. 

JMP.C .-JUMP TO 'V*TH COMMAND 

DLY.C ;DELAY 'V MS. 

}77777 ;END OF COMMAND SEQUENCES 



0023U 
002316 
002320 
002322 



002324 



0023U 
000000 
000000 
000000 
000000 



00232A 
100017 
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2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
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SEQ 0047 



002330 
002330 100012 



002334 
002334 102010 
002336 000001 



002340 000007 



002356 000007 

002374 000007 

002412 000007 

002430 000007 



.S6UL GLOBAL DATA SECTION 



THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN MORE THAN ONE TEST. 



CMDPKT:: 0 
0 
0 
0 



COMMAND PACKET. 

.♦3H 77774 



;MUST BE ON MOD 4 BOUNDRV. 

;1ST WORD IS TU80 COMMAND. 

;2ND WORD IS THE BUFFER LOW ADDRESS. 

;3RD WORD IS THE BUFFER HIGH ADDRESS. 

;4TH WORD IS THE BYTE/RECORD/FILE COUNT. 



GSCPK:: .WORD 



GET STATUS COMMAND PACKET. 

.-MUST BE ON MOD 4 BOUNDRV. 



.♦3H 77774 
6ES 



MESSAGE BUFFER RELEASE COMMAND PACKET. 

= .^3(177774 ;MUST BE ON MOD 4 BOUNDRV. 

BRCPK:: .WORD MBR 

REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 

= .*5t^7777i^ ;MUST BE ON A MODULE 4 BOUNDARY. 

RWCPK:: .WORD RWD 
.WORD 1 

WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 

MSGPKT:: .BLKW 7 ;1ST WORD:: MESSAGE TYPE. 

2ND WORD:: DATA FIELD LENGTH. 
3RD WORD:: RESIDUAL FRAME COUNT. 
4TH WORD:: XSTATO 
5TH WORD:: XSTAT1 
6TH WORD:: XSTAT2 
7TH WORD:: XSTAT3 



MESSAGE PACKETS 



MSGPKO: 
MSGPKl : 
MSGPK2: 
MS6PK3: 



.BLKW 
.BLKW 
.BLKW 
.BLKW 



7 
7 
7 
7 



MESSAGE PACKET FOR DEVICE »0 
MESSAGE PACKET FOR DEVICE «1 
MESSAGE PACKET FOR DEVICE #2 
MESSAGE PACKET FOR DEVICE #3 
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J 4 



SE^ 



0048 



2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 



002446 
002450 
002452 
002454 



002456 
002466 
002476 



002506 
002510 
002512 
002514 



002516 
002520 
002522 
002524 



002526 
002530 
002532 
002534 



002356 
000000 
000016 
000040 



000004 
000004 
000004 
002456 



002356 
002374 
002412 
002430 



006566 
006574 
006602 
006610 



000000 
000000 
000000 
000000 



002536 177774 

002540 177774 

002542 177774 

002544 177774 

002546 U???? 



002550 003000 

002552 003052 

002554 003124 

002556 003176 



SCHBK: 



SET CHARACTERISTIC BLOCK. 

MSGPKO 

0 

nSGCNT 
CH.EAI 

TU80 REGISTER ADDRESSES. 



1ST WORD:: HSGPKT AOOR LO(SET UP BY EXCUTE ROUT 

2ND UORD:: MS6PKT ADDR HI. 

3RD WORD:: MSG BUFFER LENGTH (BYTES) 

4TH WORD:: CHARACTERISTICS UORD(SET BY SETUP RO 



TSDB: 
TSSR: 
TSVCT: 



.BLKW 
.BLKU 
.BLKU 



4 
4 
4 



TSBAs-TSDB 



TU80 DATA BUFFER ADDRESSES. 
TU80 STATUS REGISTER ADDRESSES. 
TUSO VECTOR ADDRESSES. 
DATA BUFFER ADDRESS REGISTER. 



ADDRESSES OF MESSAGE PACKETS. 



MSGPKA: 



: MSGPKO 
MS6PK1 
MSGPK2 
MSGPK3 



DEVICE 0. 
DEVICE 1. 
DEVICE 2. 
DEVICE 3. 



ADDRESSES OF INTERRUPT HANDLING ROUTINES. 



TS4INT:: TS4IN0 
TS4IN1 
TS4IN2 
TS4IN3 



DEVICE 0. 
DEVICE 1. 
DEVICE 2. 
DEVICE 3. 



TUSO CODE LEVELS, WILL BE STORED AFTER SCH CMO IN BASIC FUNCTION TEST 



TS4CLi 



0 
0 
0 
0 



DEVICE 0 
DEVICE 1 
DEVICE 2 
DEVICE 3 



DEVT8L; 



UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 

WHEN DEVICE IS NOT IN USE, IT.S LOCATION WILL = -3_^^ ^ 

R5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 

: .WORD NINUSE 
.WORD NINUSE 
.WORD NINUSE 
.WORD NINUSE 
.WORD END 

BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
"WRTY" TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 

BTADDR:: BTO 
BTI 
BT2 
BT3 
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GLOeAL DATA SECTION 



K 4 



SEQ 0049 



2226 
2221 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
1212 
2211 
22U 
221^ 
2216 
2211 
2218 
2219 
2280 
2281 



COUNTER AREA. 



002560 
002620 
002660 
002720 
002730 
002740 
002750 
002760 
002770 
003000 
003052 
003124 
003176 
003250 
003260 
003270 
003300 
003310 
003320 

003330 



003340 
003341 

003342 
003344 
003346 
003406 
003410 
003412 
003414 
003416 
003420 
003422 
003424 
003426 
003430 
003432 
003434 
003436 
003440 
003442 
003444 
003446 
003450 
003452 
003454 



002560 
000020 
000020 
000020 
000004 
000004 
000004 
000004 
000004 
000004 
000025 
000025 
000025 
000025 
000004 
000004 
000004 
000004 
000004 
000004 
003330 
000004 

000550 



000 
000 

000000 
000000 
000020 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

111111 

Mllll 
Mini 
000000 
000000 
153624 
032561 
000000 
000000 
000000 
000000 



CNTBGN= 
URBC:: 
RRBC:: 
RFBC:: 
URREC:: 
URUNR:: 
RRREC:: 
RRUNR:: 
RFREC : : 
RFUNR:: 
BTO:: 
BT1 : : 
BT2:: 
8T3:: 
WRTVCT: 
PASCNT: 
SCCNT:: 
VFirCNT: 
HRDCNT: 
FTLCNT: 
CNTENDs 
RECCNT: 



.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKW 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
: .BLKU 
: .BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 



20 

20 

20 

4 

4 

4 

4 

4 

4 

21. 

21. 

21. 

21. 

4 

4 

4 

4 

4 

4 



.BLKU 4 



CNTLEN--CNTEND-CNTBGN 



BYTES URITTEN. 
BYTES READ REV. 
BYTES READ FUD. 
RECOVERABLE URITE ERRORS. 
UNRECOVERABLE URITE ERRORS. 
RECOVERABLE READ REV ERRORS. 
UNRECOVERABLE READ REV ERRORS. 
RECOVERABLE READ FUDERRORS. 
UNRECOVERABLE READ FUD ERRORS. 
UNIT 0 BAT TAPE SPOTS LOG 
UNIT 1 BAT TAPE SPOTS LOG 
UNIT 2 BAT TAPE SPOTS LOG 
UNIT 3 BAT TAPE SPOTS LOG 
URITE RETRY COUNTER 
PASS COUNT. 

SPECIAL CONDITION COUNT. 

COUNT OF ru80 DATA COMPARE ERRORS. 

COUNT OF HARD ERRORS. 

COUNT OF FATAL ERRORS. 

END OF STATICTICAL COUNTERS. 

NUMBER OF RECORDS FROM BOT: CLEARED ON REUIND 

AND WHEN RESTARTING OR CONTINUING TEST 2. 

LENGTH OF STATISTICAL COUNTER AREA. 



THE FOLLOUING ARE THE DEFINITIONS OF VARIABLES 
USED BY THE PROGRAM. 

TEST 3 LOOP CONTROL 
THIS IS A 'BEEN HERE BEFORE' 



DOAGIN:: 


.BYTE 


0 


HERE:: 


.BYTE 


0 


.EVEN 






RAMHLD: 


.UORD 


0 


RAMRSK: 


.UORD 


0 


RAMDATA: 


: .BLKU 


16. 


RAMSIZ:: 


.UORD 


0 


CHPDAT:: 


.UORD 


0 


DATRAT:: 


.UORD 


0 


STTIM:: 


.UORD 


0 


DATAUT:: 


.UORD 


0 


DATARD:: 


.UORD 


0 


NCNT:: 


.UORD 


0 


MCNT1 : ; 


.UORD 


0 


BRFCNT:: 


.UORD 


0 


CMDURD:: 


.UORD 


END 


CNDSAV:: 


.UORD 


END 


PCMDUDr: 


.UORD 


END 


CMDL6: : 


.UOPD 


0 


LENNSK:: 


.UORD 


0 


RANB:: 


.UORD 


153624 


RANS:: 


.UORD 


32561 


TIMET : : 


.UORD 


0 


TIME2:: 


.UORD 


0 


JLOOP:: 


.UORD 


0 


JLOC:: 


.UORD 


0 



MARKER 



RAM ADDR HOLDER 1ST ADDRESS 
HOLDS R5 FOR LATER 

DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

RAM DATA SIZE FOR PRAMPKT ROUTINE 

COUNTS f OF READS (TEST 3) BEFORE ALLOUING A DA 

CONTROLS THE DATA COMPARE RATIO 

BTL 

WRITE BUFFER ADDRESS. 
READ BUFFER ADDRESS. 
STORAGE FOR VALUE OF N. 
TEMP STORAGE FOR VALUE OF N. 
STORAGE FOR BPCR VALUE. 

CONTAINS COMMAND UORD BEING EXECUTED PRESENTLY. 

SAVE LOCATION FOR CMD UORD DURING ERROR RECOVER 

CONTAINS PREVOUS COMMAND WORD. 

CURRENT COMMAND LOGGING CODE. 

RANDOM URITE LENGTH MASK, TO BE SET UP BY TESTS 

RANDOM f GENERATOR BASE. 

RANDOM « SAVE LOCATION. 

TIME COUNT 1. 

TIME COUNT 2. 

JMP COMMAND LOOP COUNT. 

JMP COMMAND LOCATION COUNT. 



I 4 

GLOBAL AREAS MACrll 30(1046) 12-JUL-83 09:44 PAGE 33-1 0Q50 

CZTUVB.Pll 12-JUL-83 09:26 GLOBAL DATA SECTION "^'^ 

2262 003456 000000 PATfcRN: : .WORD 0 ;PATTERN SELECT CODE. 
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003A60 


AAAAAA 

000000 


2285 


005A62 


AAAAAA 

000000 


2286 


005A6A 


AAAAAA 

000000 


2287 




AA7/ i X 

003416 


dcoo 






2289 






2290 






2291 






2292 




003hO0 


2293 


OOjhoo 


AAAAAA 

OOOUUU 


ccy** 




f\f\t\ 




nn7A7i 


uuu 




'^A7/.79 


uuu 


ccyf 


rtA7Z.77 


000 

uuu 






non 
uuu 


ccty 


003*1 f 3 


ooo 
uuu 




l\t\tL 7il 
003«irO 


f\f\t\ 

000 




f\A1A 77 


uuu 












007500 
























oonon^ 




UU39 lU 


OOOOOA 




UU9P£w 


oooonn 


C J 1 U 


0075?? 


000 


Cj \ I 


wU3^C J 


000 
uuu 


CJlC 


UU39cN 


000 

UUU 




00759^ 
UU39c9 


000 

uuu 




UU3?cO 


000 
uuu 


571 ^ 


007597 


000 
uuu 


971 A 


UU333U 


000 
uuu 


■571 7 


nn7C71 


000 

uuu 


971 S 


007579 


000 
uuu 


9710 


007577 
UU3333 


000 
uuu 


979n 


0075^^ 


000 
uuu 


9791 






9799 

dice 






3797 




00757A 
UU3330 


979/, 




00757A 
UU3330 


979C 












2327 






2328 


003536 


000 


2329 


003537 


000 


2330 


003540 


000 


2331 


003541 


000 


2332 







3 09:44 PAGE 34 
LOBAL DATA SECTION 

CTCl:: .WORD 0 

RSSAVE:: .WORD 0 

TSSREG:: .UORD 0 
DJABLK^sDATAUT 



M 4 



SEQ 0051 



.-CURRENT TERMINATION CLASS CODE. 

LOCATION FOR SAVING CURRENT DEVICE POINTER. 

.CURRENT STATUS REGISTER. 

;URITE BUFFER ALSO USED FOR DIAG CMD. 



ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
AFTER EACH COMMAND IS COMPLETED. 



BGNFLG=. 

RETRYC:: 

RPTCNT:: 

URTYFG:: 

URTYER:: 

RE CLOG:: 

ERLOG:: 

RUERR:: 

UNREC:: 

ERRREC:: 

ENDERF^. 



.WORD 0 ;» OF RECOVERY ATTEMPTS EXECUTED. 

.BYTE 0 .-WRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 

.BYTE 0 ; WRITE RETRY ON SAME SPOT IN PROGRESS FLAG 

.BYTE 0 .-WRITE RETRY ON SAME SPOT ERROR FLAG 

.BYTE 0 .-RECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 

.BYTE 0 ;DATA BYTES AND ERRORS HAVE BEEN LOGGED FCR THIS 

.BYTE 0 .-READ/WRITE ERROR HAS OCCURED. 

.BYTE 0 .-UNRECOVERABLE ERROR HAS OCCURED. 

.BYTE 0 .-ERROR RECOVERY MODE. 
.EVEN 



ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 

.-INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
.-EOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 
.-BAD TAPE SPOT POINTER TO BT0-BT3 VIA BTADDR 
;BOT IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
.-RANDOM EVERYTHING FLAG. 
.-SET DURING WRITE/VERIFY COMMAND. 
.-PERFORMANCE REPORT HAS BEEN REQUESTED. 
; ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZE 
.•INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
; CURRENT UNIT HAS BEEN DROPPED 
;TEST1 SWAP BYTES FLAG 
.ALL UNITS a EOT FLAG 

.-INDICATES TEST ONE UNIT AT A TIME, COMPLETELY. 
.-ERASE FLAG: DO ERASE AFTER A SPACE REV TO DELE 
.-BADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
;A 3 TO 12 INCH GAP MAY RESULT. 



INTFLG:: 


.BLKW 


4 


EOTFLG:: 


.BLKW 


4 


BTPT:: 


.WORD 


0 


EXPBOT:: 


.BYTE 


0 


RANDOM:: 


.BYTE 


0 


VFVFLG:: 


.BYTE 


0 


RPTFL6:: 


.BYTE 


0 


SUBFLG:: 


.BYTE 


0 


IRE:: 


.BYTE 


0 


DROPED:: 


.BYTE 


0 


T1SWB:: 


.BYTE 


0 


ALLEOT:: 


.BYTE 


0 


STREAM: : 


.BYTE 


0 


ERSFLG:. 


.BYTE 


0 




.EVEN 





ENDFLG-. 



ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 



STAFLG:: .BYTE 0 

PWRFLG:: .BYTE 0 

TRAPD4:: .BYTE 0 

MISCFG:: .BYTE 0 



.START FLAG - SET BY INIT CODE IF STARTING. 
.POWER FAILURE FLAG - SET ONLY DURING INIT. 
;TRAPED AT 4 FLAG 
.-MISCELLANEOUS FLAG 
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GLOBAL DATA SECTION 



N 4 



SEQ 0052 



2534 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 



003542 000000 



003544 
003546 
003550 
003552 
003554 
003556 
003560 
003562 
003564 
003566 
003570 
003572 
003574 
003576 
003600 
003602 
003604 
003606 
003610 
003612 
003614 
003616 
003620 
003622 
003624 
003634 
003636 
003640 
003642 
003644 



140004 
000040 
000001 
000000 
102010 
000001 
000001 
000007 
104005 
004000 
076400 
000007 
104401 
004000 
076400 
000007 
104001 
004000 
076400 
000007 
102010 
000001 
000001 
000007 
000004 

ymn 



OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 



OPFLAG:: .WORD 
.EVEN 



.-READ ONLY OPERATOR FLAG WORD 



;THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
;HAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
;CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 



.WORD 


SCH ;SET CHARACTERISTICS. 




.WORD 


CH.EAI 






.UORD 


1 






.WORD 


0 






.WORD 


RWD ; 


REWIND. 




.WORD 


1 ; 


BYTE COUNT. 




.WORD 


1 ; 


ONCE. 




.WORD 


RANP ; 


PATTERN. 




.WORD 


WRT 


WRITE. 




.WORD 


DATCNT 


MAX BUFFER LENGTH. 




.WORD 


32000. 


32,000 RECORDS. 




.WORD 


RANP 


RANDOM PATTERN. 




.WORD 


RDR 


■READ REV. 




.WORD 


DATCNT 


■MAX BUFFER LENGTH. 




.WORD 


32000. 


•32,000 RECORDS 




.WORD 


RANP 


■RANDOM PATTERN. 




.WORD 


RDF 


;READ FWD. 




.WORD 


DATCNT 


;MAX BUFFER LENGTH. 




.WORD 


32000. 


;32,000 RECORDS. 




.WORD 


RANP 


; RANDOM PATTERN. 




.WORD 


RWD 


;REWIND. 




.WORD 


1 


;BYTE COUNT. 




.WORD 


1 


;ONCE. 




.WORD 


RANP 


'PATTERN 




.BLKW 


4 


•EXTENSTION TO HOLD 1 


MORE CMD. 


.WORD 


END 


;SOFT END OF SEQUENCE 


TABLE. 


.WORD 


END 






.WORD 


END 






.WORD 


END 






.WORD 


END 


;HARD END OF SEQUENCE 


TABLE. 
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2375 






;THE F 


2376 








2377 


003646 


100013 


CMDTBL:: .WORD 


2378 


003650 


104001 


.WORD 


2379 


003652 


104401 


.WORD 


2380 


003654 


104005 


.WORD 


2381 


003656 


104105 


.WORD 


2382 








2383 








2384 


003660 


104010 


.WORD 


2385 


003662 


104410 


.WORD 


2386 


003664 


105401 


.WORD 


2387 


003666 


125401 


.WORD 


2388 


003670 


105001 


.WORD 


2389 


003672 


125001 


.WORD 


2390 


003674 


105005 


.WORD 


2391 


003676 


102010 


.WORD 


2392 


003700 


100012 


.WORD 


2393 


003702 


100011 


.WORD 


2394 


003704 


101011 


.WORD 


2395 


003706 


105010 


.WORD 


2396 


003710 


105410 


.WORD 


2397 


003712 


100017 
100411 


.WORD 


2398 


003714 


.WORD 


2399 


003716 


100412 


.WORD 


2400 


003720 


101012 


.WQHD 


2401 


003722 


140004 


.WORD 


2402 


003724 


100006 


.WORD 


2403 


003726 


000040 


.WORD 


2404 


003730 


000020 


.WORD 


2405 


003732 




.UORD 


2406 









6 5 



SEQ 0053 



LLOUING IS THE TU80 COMMAND TABLE 



DRI 
RDF 
RDR 
URT 
UTV 



SRF 
SRR 
RNR 
RNF 
RPF 
RPR 
URR 
RUD 
MBR 

urn 

UTR 
SFF 
SFR 
GES 
ERS 
UNL 
CLN 
SCH 
OIA 
JHP 
OLV 
END 



DRIVE INIT. 
READ FORWARD. 
READ REVERSE. 
WRITE 

WRITE/VEKIFY. (WRITE ALL RECORDS, RDR AND 
CHECK DATA ON ALL RECORDS, RDF AND 
CHECK DATA ON ALL RECORDS.) 
SPACE 'V RECORDS FORWARD. 
SPACE 'V RECORDS REVERSE. 

READ NEXT REVERSE. I.E., SPACE FWD, READ RE VERS 
READ NEXT FORWARD, I.E., READ FORWARD, SPACE RE 
READ PREVIOUS FORWARD. I.E., SPACE REVERSE, REA 
READ PREVIOUS REVERSE. I.E., READ REVERSE, SPAC 
WRITE RETRY. 
REWIND 

MESSAGE BUFFER RELEASE 

WRITE TAPE NARK 

WRITE TAPE MARK RETRY. 

SPACE "H" FILES FORWARD. 

SPACE "H" FILES REVERSE. 

GET EXTENDED STATUS. 

ERASE 3 INCHES OF TAPE. 

REWIND AND UNLOAD. 

CLEAR TAPE. 

SET CHARACTERISTICS. 

DIAGNOSTIC COHNAND. 

JUMP TO THE NTH COMMAND IN THE SEQUENCE. 

DELAY 'V MS. 

END OF COMMAND TABLE 
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C 5 



2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

242S 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 



003734 
003737 
003742 
003745 
003750 

003753 
003756 
003761 
003764 
003767 
003772 
003775 
004000 
004003 
004006 
004011 
004014 
004017 
004022 
004025 
004030 
004033 
004036 

004041 



051104 
122 

042122 
127 

052127 

123 
051123 

122 
047122 

122 
050122 

127 
053522 

115 
052127 

127 
043123 

123 
042507 

105 
047125 

103 
041523 



004044 046512 



004047 
004052 



104 

047105 
004056 



111 
043104 

122 
052122 

126 

043122 

122 
051116 

106 
043120 

122 
051122 

104 
051102 

115 
051124 

106 
051106 

123 
051522 

114 
047114 

110 



104 040511 



120 

054514 
104 



THE FOLLOWING TABLE 

CNDASC:: .ASCII /DRI/ 
.ASCII /RDF/ 
.ASCII /RDR/ 
.ASCII /URT/ 
.ASCII /WTV/ 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



/SRF/ 
/SRR/ 
/RNR/ 
/RNF/ 
/RPF/ 
/RPR/ 
/WRR/ 
/RWD/ 
/NBR/ 
/WTH/ 
/WTR/ 
/SFF/ 
/SFR/ 
/6ES/ 
/ERS/ 
/UNL/ 
/CLH/ 
/SCH/ 



.ASCII /DIA/ 



.ASCII /JHP/ 



.ASCII /DLY/ 

.ASCII /END/ 
.EVEN 



SEO 0054 

CONTAINS THE ASCII fJR EACH COMMAND. 

.-DRIVE INIT. 
;READ FORWARD. 
;READ REVERSE. 
: WRITE 

:URITE/VERIFy. (WRITE ALL RECORDS. RDR AND CHEC 
:0N ALL RECORDS* RDF AND CHECK DATA ON ALL RECOR 
.•SPACE 'V RECORDS FORWARD. 
; SPACE 'V RECORDS REVERSE, 

;READ NEXT REVERSE. I.E.. SPACE FWD READ REVERSE 
;READ NEXT FORWARD. I.E.. READ FORWARD. SPACE RE 
.-READ PREVIOUS FORWARD. IE.. SPACE REVERSE, READ 
.•READ PREVIOUS REVERSE. IE.. READ REVERSE. SPACE 
.•WRITE RETRY. 
•REWIND 

•MESSAGE BUFFER RELEASE 
.•WRITE TAPE MARK 
.•WRITE TAPE HARK RETRY. 
;SPACE "H" FILES FORWARD. 
.•SPACE 'V FILES REVERSE. 
;GET EXTENDED STATUS. 
.•ERASE 3 INCHES OF TAPE. 
.•REWIND AND UNLOAD. 
.CLEAN TAPE. 

.-SET CHARACTERISTICS. WHERE BRF=:200. 40. 20. 0. 

.•SEE TU80 PROGRAMMING SPECIFICATION FOR DESCRIPT 

.•DIAGNOSTICS. SEE TU80 PROGRAMING SPECIF ICATIO 

:F0R DESCRIPTION. ODT MUST BE USED TO LOAD DIAG 

:INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED 

;JUMP TO THE NTH COMMAND IN THE COMMAND 

.•SEQUENCE TABLE. WHERE N IS DEFINED IN 

.•THE # OF OPERATIONS. 

.DELAY 'V MS. WHERE N IS DEFINED IN 

.-THE It OF OPERATIONS. 

;END OF COMMAND SEQUENCE. 



GLOBAL AREAS 
C2TUVB.P11 



^AA9 

2A50 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

^'485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

249P 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 
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D 5 



SEQ 0055 



.S8UL GLOBAL TEXT SECTION 



004056 047045 040445 047125 



004126 
004166 

004250 
004273 
004314 
004340 
004355 
004374 
004421 
004437 
004457 
004505 
004522 
004544 
004570 
004634 
004656 
004702 
004731 
004763 
005032 
005074 
005115 
005157 
005213 
005243 
005277 
005302 
005310 
005401 
005452 
005464 



054130 
046503 
004250 
040504 
116 
047125 
043122 
124 
042522 
125 
106 
106 
116 
040524 
047524 
040503 
042522 
047125 
047045 
045 
045 
042045 
040445 
045 
045 
045 
045 
045 
047C45 
047045 
045 
040445 
047045 

005474 



020130 
020104 

040524 
020117 
042504 
020103 
034125 
051124 
044516 
047125 
052101 
020117 
042520 
020117 
051520 
047503 
042522 
040445 
022516 
022516 
022464 
047516 
051101 
051101 
052501 
043501 
000116 
051445 
040445 
022516 
022440 
047045 



046503 
040520 

041440 
052524 
044506 
047516 
020060 
020131 
020124 
052103 
046101 
047111 
051440 
040515 
040524 
042526 
047503 
051104 
040501 
041101 
020101 
042040 
041505 
041505 
044516 
052105 

000067 
025040 
020101 
031517 
047045 



THE GLOBAL TEXT SECTION CONTAINS FORMAr STATEMENTS, 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 



FORMAT STATEMENTS USED IN PRINT CALLS 



.NLIST BEX 



CODELM: 

HALTM:: 
CMDPKM: 

UTVERM: 

TOERM; : 

SCERM: : 

RFCERM: 

NSSRM:: 

RLEXM: : 

ATTfM: : 

FUNRM:: 

FATSM:: 

NOINTM: 

TSAM: : 

TOONM: : 

RNYN:: 

RERM:: 

URERN:: 

DROPDM: 

AUORPM: 

DTAER2: 

DTAER3: 

DTAER4: 

DTAER5: 

NURTV1: 

OFLINM: 

6ETSTM: 

CRLF:; 

CRLFSP: 

RAMFHR: 

RAMIOP: 

RAMPD: 

RAMLIN: 



: .ASCIZ 
.EVEN 
.ASCIZ 
: .ASCIZ 
.EVEN 
: .ASCIZ 
.ASCIZ 
.ASCIZ 
: .ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
: .ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
: .ASCII 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
: .ASCIZ 
.ASCIZ 
: .ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.LIST 
.EVEN 



/XNXAUNIT XD1XA TU80 CODE LEVEL PX03XNXN/ 

/XXX CMD - TYPE <CR> TO CONTINUE/ 

/CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD!/ 

/DATA COMPARE ERROR/ 

/NO TU80 RESPONSE/ 

/UNDEFINED SPEC COND/ 

/RFC NON ZERO/ 

/TU80 NOT READY/ 

/RETRY LIMIT EXCEEDED/ 

/UNIT OFF LINE/ 

/FUNCTION REJECT/ 

/FATAL SUBSYSTEM ERROR/ 

/NO INTERRUPT/ 

/TAPE STATUS ALERT/ 

/TOO MANY INTERRUPTS/ 

/CAPSTAN RUNAIMY-GET STATUS RESULTS:/ 

/RECOVERABLE ERROR/ 

/UNRECOVERABLE ERROR/ 

/XNtADROPPED UNIT I01XN/ 

/XNXAALL UNITS OROPPEDXMM/ 

' INXABYTE : ID4XS2XAMAS : XB8XS2US/B : Z88XN' ' 

*mXA BYTES IN ERROR OUT OF XD4SN" 

/XANO DATA READXN/ 

/XARECORD TOO LONG: >X04XA BYTESXN/ 

/XARECOVERED ON RETRY «XD2XN/ 

/XAUNIT XD1XA OFF LINEXN/ 

/XAGET STATUS CMD RESULTS :XN/ 

/XN/ 

/XNXS7/ 

•XNXA •••*»*•••• SPECIAL M7454 RAM MEMORY DUMP ♦*•••*•«••• 
•XNXA RAM ADDRESS (OCTAL) - X03XA - X03XN' 
*XA X03XA * 
•XNXNXN' 

BEX 
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2509 
2510 
2511 
2512 
2513 
25U 
2515 
2516 
2517 

2518 005A/A 

(3) 005A74 

2524 005474 

(10) 005474 016546 003330 

(9) 005500 016546 003260 

(8) 005504 016546 002536 

(7) 005510 012746 006154 

(6) 005514 012746 000004 

(3) 005520 010600 

(4) 005522 104414 

(4) 005524 062706 000012 

2525 005530 

(7) 005530 012746 006246 

(6) 005534 012746 000001 

(3) 005540 010600 

(4) 005542 104414 

(4) 005544 062706 000004 

2526 005550 

(4) 005550 010237 006562 

2527 005554 

(4) 005554 010337 003446 

2528 005560 

(4) 005560 010437 003450 

2529 005564 004737 006616 

2530 005570 

(4) 003570 013702 006562 

2531 005574 

(4) 005574 010337 006562 

2532 005600 

(4) 005600 013703 003446 

2533 005604 

(4) 005604 013704 003450 

2534 005610 

(8) 005610 013746 006562 

(7) 005614 012746 006276 
(6) 005620 012746 000002 

(3) 005624 010600 

(4) 005626 10441 
(4) 

2535 
(4) 
(3) 
2536 
2537 
2538 

(3) 

(3) 005640 104423 
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GLOBAL ERROR REPORT SECTION 



E 5 



SEO 0056 



005640 
005640 
005640 



062706 000006 

000167 
000000 



.S61TL GLOBAL ERROR REPORT SECTION 



THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CAILS 
THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
THAT ARE USED BY THE PRINIB AND PRINTX CALLS.. 



DTAERM: 



BGNMSG DTAERn 

PRINTB #STAER'i«DEVTBL(R5),PASCNT(R5),PECCNT(R5) 



PRINTB «STAER7 



LET RECRED := R2 

LET TIME1 := R3 

LET TIHE2 := R4 

JSR PCRECTAP 
LET R2 RECRED 

LET RECRED R3 

LET R3 := TIHE1 

LET R4 := TIHE2 

PRINTB fSTAER6, RECRED 



SAVE R2 
SAVE R3 
SAVE R4 

RETRIEVE RECORD READ 
RESTORE R2 

SAVE RECORD READ 

RESTORE R3 

RESTORE R4 

PRINT RECORD READ 



LI 0002: 



EXIT 

.EVEN 
ENDnSG 



MSG 



NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 
NOV 
TRAP 
ADD 

NOV 

NOV 

NOV 



NOV 
MOV 
NOV 



NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

.WORD 
.WORD 



RECCNT(R 
PASCNT(R 
DEVTBL(R 
#STAER1 , 
#4,-(SP) 
SP.RO 
CSPNTB 
#12. SP 

#STA£R7. 

#1.-(SP) 

SP,RO 

CSPNTB 

#4.SP 

R2,RECRE 

R3.TINE1 

R4,TINE2 

RECRED, R 

R3,RECRE 

TINE1,R3 

TINE2,R4 

RECRED, - 

fSTAER6, 

#2,-(SP> 

SP,RO 

CSPNTB 

#6.SP 

J$JNP 

LI 0002-2 



TRAP CtNSG 
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2539 



25A0 


005642 








BGNHSG STAERM 






(3) 


005642 








STAERN: : 






2541 


005642 








PRINTS fSTAER1,DEVTBL(RS),PASCNT(R5),REC^NT(R5) 






(10) 


005642 


016546 


003330 




HOV 


RECCNKR 


(9) 


005646 


016546 


003260 






NOV 


PASCNT(R 


(8) 


005652 


016546 


002536 






MOV 


OEVTBL(R 


(7) 


005656 


012746 


006154 






NOV 


fSTAERI , 


(6) 


005662 


012746 


Aft/% i 

000004 






MOV 


#4,-(SP) 


(3) 


005666 


010600 








HOV 


SP,RO 


(4) 


005670 


104414 








TRAP 


CSPNTB 


(4) 


005672 


062706 


ftftftft4 ^ 

00001 2 






ADD 


m4 ^ «»ft 

#12, SP 


2542 


005676 








PRINTB #STAER7 






(7) 


005676 


y\4 ^ ^ y M 

012746 


006246 






MOV 


#STAER7, 


(6) 


005702 


012746 


000001 






MOV 


#1,-(SP) 


(3) 


005706 


4 A^ y\y\ 

010600 








MOV 


SP,RO 


(4) 


005710 


104414 








TRAP 


CSPNTB 


(4) 


005712 


062706 


Aft ftftft / 

000004 






ADD 


#4,SP 


2543 


005716 








LET R2 :s CWPKT CLR.BY #177740 






(4) 


005716 


A4 V7A'> 

01 3702 


ftft^9 4 y 

00231 4 






MOV 


CHDPKT,R 
#l77/40# 


(6) 


005722 


Ay 17A1 

042702 


177740 






BIC 


icy y 


005^26 








LET R2 := R2 - m\ 






y ^ \ 

(6) 


0057?6 


AACTA1 

005302 








ftF P 

DEC 


R2 


2545 


005 '30 








IF R2 EQ #0 THEN ;Ir Cn) IS A READ 






(6) 


AAC 7VA 

005730 


AAC7A^ 

005702 






TST 


R2 


(9) 


005732 


AA1 A1 d. 

001016 








BNE 


50000* 


2546 


AAC7Vy 

005734 


004737 


00661 6 




JSR PCRECTAr ;THEN RETRIcVE 






^54 7 


AAC 7/ A 

005740 








LET RECRcD R3 :AND 






(4) 


y\y\p ^y a 

005740 


y\ 4 9 ^ 

010337 


ftft^ CX ^ 

006562 






MOV 


R3,RECRE 


2548 


AAC^y y 

005744 








PRINTB #STAER6«RECRED ;TyPE RECORD READ 






y o % 

(8) 


y%Af 7/ y 

005744 


A4 77y ^ 

013746 


ftftX 

006562 




Mfta t 

MOV 


ftp y ftp A 

RECREO,- 


(7) 


005750 


ft4 ^^y ^ 

012746 


ftft^ ft^^ 

006276 






Moy 


Mtf* V A Pft^ 

#STA£R6, 


(6) 


005754 


y%4 ^"^^ ^ 

012746 


ftftftftft^ 

000002 






MOV 


#2,-<SP) 


y T \ 

(3) 


005760 


ft 4 A^ Aft 

010600 








MOV 


<*ft Aft 

SP,RO 


(4) 


AAC ^d. 1 

005762 


4 fty y 4 y 

104414 








Tft Aft 

TRAP 


J' AftAaVn 

CSPNTB 


y y \ 

(4) 


AA c 7^ y 

005764 


A^ ^7 AX 

062706 


AAAAA^ 

000006 






ADD 


MA. f A 

#6,SP 


2549 


AAC77A 

005770 








ENDIF 




y y \ 

(4) 


AAC "^^A 

005770 








50000$: 






2550 


AAC77A 

005770 








PRINTX #STAER2 






(7) 


AAC77A 

005770 


012746 


AA^ 

006332 






MOV 


#STAER2, 


(6) 


AAC^^y 

005774 


A4 M. 

012746 


A A AAA 4 

000001 






MOV 


jg4 /pn\ 

#1 ,-(SP) 


(5) 


AA^ AAA 

006000 


A1 AaAA 

010600 








MOV 


CA nA 


y y \ 

(4) 


AAx AA*) 

006002 


4 Ay J ^ c 

104415 








TRAP 


CSPNTX 


(h) 


AA^ AAy 

006004 


A^ ^7A^ 

062706 


Aftftftft y 

000004 






ADD 


Mi CA 

#4,SP 


2551 


AA^AI A 

006010 








PRINTX #STAEH3 , CMOPKT ,8TSD6 ( R5 ) ^MSGPKT^HS .RF C , TSSREG , CTCC 




(12) 


AA^ A4 A 

006010 


A4 T7y X 

013746 


AA7y ZA 

003460 






MOV 


CTCC,-(i 


y 4 1 \ 

(11) 


AA^ A4 y 

006014 


A4 V7y Z 

013746 


AATy 

003464 






MOV 


TSSRtu,- 


(10) 


AA^ A'^A 

006020 


A4 77y Z 

013746 


AAOTy y 

002344 






MOV 


i>C ^ AV T 




V/U6Uc*r 


U 1 f jhO 








MOV 


■1 9UDIn J 


(8) 


006030 


013746 


002314 






MOV 


CMDPKT,- 
#STAER3, 


(7) 


006034 


012746 


006411 






MOV 


(6) 


006040 


012746 


000006 






MOV 


#6.-(SP) 


(3) 


006044 


010600 








NOV 


SP.RO 


(4) 


006046 


104415 








TRAP 


CSPNTX 


(4) 


006050 


062706 


000016 






ADO 


#16,SP 


2552 


006054 








PRINTX #STAER4.CHDPKT*2,CH0PKT*4.C«)PKT46 
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SEQ 0058 



(10) 


006054 


01 3746 


002322 




HOV 


CNDP»CT*6 


(9) 


006060 


013746 


002320 




NOV 


CW)PKT*4 


(8) 


006064 


013746 


002316 




NOV 


CNDPKT+2 


(7) 


006070 


012746 


006447 




NOV 


#STAER4. 


(6) 


006074 


012746 


000004 




NOV 


#4,-(SP) 


(3) 


006100 


010600 






HOV 


SP.RO 


(4) 


006102 


104415 






TRAP 


CiPNTX 


(4) 


006104 


062706 


000012 




ADD 


#12, SP 


2553 


006110 


PRINTX 


#STAERS,NSGPKT>MS.XS0,MS6PKT«NS.XS1,MS6PKT*NS.XS2,nSGPKTfns.XS3 


(11) 


006110 


013746 


002354 




MOV 


NSGPKT+N 


(10) 


0061 r< 
006120 


013746 


002352 




NOV 


NSGPKT+N 


(9) 


01 3746 


002350 




NOV 


NSGPKT+N 


(8) 


006124 


013746 


002346 




NOV 


NSGPKT+N 


(7) 


006130 


012746 


006467 




NOV 


#STA£R5. 


(6) 


006134 


012746 


A A AAA C 

000005 




NOV 


#5,-(SP) 


(3) 


006140 


010600 






NOV 


SP.RO 


(4) 


006142 


104415 






TRAP 


CiPNTX 


(4) 


006144 


062706 


000014 




ADD 


#14. SP 


2554 


006150 






EXIT 


MSG 




(4) 


006150 


000167 






.WORD 


JSJNP 


(3) 


006152 


000410 






.WORD 


LI 0003-2 



006154 040445 054130 020130 



2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 006562 
2571 

2572 006564 
(3) 006564 
(3) 006564 



006246 
006276 
006332 
006411 
006447 
006454 
006461 
006467 
006532 



040445 
051445 
047045 
045 
045 
047445 
045 
045 
047445 



000000 



104423 



051120 
030461 
040445 
033117 
033117 
022466 
033117 
054101 
022466 



053105 
040445 
046503 
051445 
047045 
116 
047045 
052123 
031123 



STAER1 : 

STAER7: 
STAER6: 
STAER2: 
STAER3: 
STAER4: 



STAER5: 



RECRED: 



L 10003: 



.NLJST 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.LIST 

.EVEN 

.WORD 

ENMSG 



BEX 

/XAXXX CND FAILED - UNIT ZD1XS3XAPASS:ZD5ZS3ZAREC0RD:Z05ZN/ 

/ZAPREVIOUS CND WAS XXX/ 

/ZS11U* RECORD READ:ZD5ZA */ 

/ZNZACNDPKTZS2ZATSaAZS4ZARFCZS5ZATSSRZS3ZATCCZN/ 

/Z06ZS2Z06ZS2Z06ZS2Z06ZS2ZD1 ZN/ 

/Z06ZN/ 

/Z06ZN/ 

/Z06ZN/ 

/ZAXST0ZS4ZAXSnZS4ZAXST2ZS4ZAXST3ZN/ 

/Z06ZS2Z06ZS2Z06ZS2Z06tN/ 

BEX 

0 .-RECORD READ FRON TAPE 



TRAP CSNSG 



GLOBAL AREAS 



C2TUVB.P11 


2574 




2575 




2576 




2577 




2578 




2579 




2580 




2581 




2582 


006566 


(3) 


006566 


2583 


006566 


(6) 


006566 


2584 


006572 


(3) 


006572 


(2) 


006572 


2585 




2586 


006574 


(3) 


006574 


2587 


006574 


(6) 


006574 


2588 


006600 


(3) 


006600 


(2) 


006600 


2589 




2590 


006602 


(3) 


006602 


2591 


006602 


(6) 


006602 


2592 


006606 


(3) 


006606 


(2) 


006606 


2593 




2594 


006610 


(3) 


006610 


2595 


006610 


(6) 


006610 


2596 


006614 


(3) 


006614 


12) 


006614 
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005237 003500 
000002 

005237 003502 
000002 

005237 003504 
000002 

005237 003506 
000002 



.SBITL GLOBAL SUBROUTINES SECTION 

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
: THAT ARE USED IN MORE THAN ONE TEST. 



nODULES TO HANDLE TU80 INTERRUPTS. 



TS41N0:: 



L 10004 : 



TS4IN1:: 



L 10005 : 



TS4IN2: 



LI 0006: 



TS4IN3:: 



L10007: 



B6NSRV TS4IN0 
LET INTFLG := INTFL6 ♦ *1 
ENOSRV 

B6NSRV TS4IN1 

LET INTFLG«2 INTFLG*2 ♦ «1 
ENOSRV 

BGNSRV TS4IN2 

LET INTFLGH := INTFLGU ♦ #1 
ENDSftV 

BGNSRV TS4IN3 

LET INTFL6+6 := INTFLG+6 ♦ #1 
ENDSRV 



;DEVICE 0. 

;SET INTERRUPT OCCURRED 



FLAG. 
INC 



RTI 



.-DEVICE 1. 

:SET INTERRUPT OCCURRED 



FLAG. 
INC 



RTI 



.DEVICE 2. 

;SET INTERRUPT OCCURRED 



FLAG. 
INC 



RTI 



.•DEVICE 3. 

;SET INTERRUPT OCCURRED 



FLAG. 
INC 



SEQ 0059 



INTFLG 



INTFLG*2 



INTFLG+4 



INTFLG^6 



RTI 



GLOBAL 


AREAS 


CZTUVB.PII 1 










cOUU 




cOUl 




JAM 












cOU? 




cOUO 


UvOO 1 0 


\o) 


UUOOIO 






cOvr 


UUDOCO 




UUOOcO 






£OUO 


uuoox) 




UUOOX) 




UUOOhc 


jiino 


UUOOhh 


\Or 


UUOO*»H 




UUOOhO 




uuooto 




Uv003U 


cO 1 1 


woo J** 




IIUOOJ** 


cO 1 c 


wVOO^O 




wUOO^D 


cO 1 J 


wvODOU 


(ftt 


vvvOOv 




l/vOOD*t 


9A1 Z. 
cO IH 


UVOOOO 




VA/OOOO 


cO 1 ? 


UUOOr U 




UwOOf V 


cO 1 0 


UvOOr w 


IL^ 
\'*f 


VA/OO' V 


\Of 


UVOOr c 


PA1 7 


wUDO'O 






CO 1 o 


VVWf WW 




vvOt vw 


V J/ 


vvO« wC 








00670? 

UwW* wC 


COcU 


00A70A 

Ww> w"» 


/A) 


00A704 

www • wH 


COC 1 


00A70A 

V WW * w"v 




Uww« wH 


(3) 


006706 


2622 


006706 


(4) 


006706 


2623 


006712 


(A) 


006712 


2624 




2625 


006712 
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032737 
001430 

013702 
063702 

032702 
001417 

005202 

111203 
142703 

000303 

005302 

105737 
001401 

005302 



111204 
142704 

050403 

000401 

011203 

000402 
017703 



000400 003430 



002344 
003420 



000001 



177400 



003526 



177400 



174506 



SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 

PRINTS. 

INPUTS * 

OUTPUTS: R3 » RECORD COUNT READ 
REGISTERS: R2. R3, R4 
CALLS : 



RECTAP::IF «nOD.CO SETIN CMDURD THEN ;READ REV FETCH 

LET R2 :: MSGPKT-^MS.RFC ♦ DATARD ;FIND LAST READ AD. 
IF «BITOO SETIN R2 THEN :ODD AD.« REASSEMBLE 

LET R2 :* R2 ♦ *1 ;REC COUNT STARTING 



BIT 
B£Q 

nov 

ADD 

BIT 
BEQ 

INC 



LET R3 :B= (R2) CLR.BY #177400 :WITH UPPER BYTE FETCH 

novB 

BICB 

LET R3 ::: SWAP R3 ; 

LET R2 :5 R2 - #1 ;LOUER BYTE AD. 

DEC 

IFB SyBFLG NE #0 THEN ^^^^ 

BEQ 

LET R2 :s R2 - »^ .'LOWER BYTE AD. ON SWAP 

DEC 

50003$: 

LET R4 :Bs (R2) CLR.BY #177400 .FETCH LOWER BYTE 

novB 



LET R3 := R3 OR R4 
ELSE 

LET R3 I' (R2) 
END IF 
ELSE 

LET R3 BDATARD 
ENDIF 



.-MERGE BYTES 



;EVEN AD. FETCH 



50002$: 



50004$: 



.-READ FWD FETCH 



50001$: 



BICB 

BIS 

BR 

MOV 

BR 

MOV 



50005$: 



SEQ 0060 



#N0O.C0. 
50001$ 

MSGPKT^M 
DATARD. R 

#BIT00.R 
50002$ 

R2 

(R2).R3 
#177400. 

R3 

R2 

SWBFLG 
50003$ 

R2 



(R2).R4 
#177400. 

R4.R3 

50004$ 

(R2).R3 

50005$ 
aOATARO. 



RTS 



PC 
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cO J 1 




























* 






nf^f>.7^L 








\J\fOf IH 








vnror cu 




1 ■♦WWWH 


CO 




V 1 C ■ C 1 


000040 

UVww"tV 






V 1 c r c 1 


000001 
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GLOBAL SUBROUTINES SECTION 



J 5 



SEQ 0061 



SUBROUTINE TO STORE A SET CHARACTERISTIC COMMAND AS 

THE FIRST ENTRY IN THE SEQUENCE TABLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



SETCH:: LET R1 fCMDSEQ 



NOV 
NOV 
NOV 
TST 

RTS PC 



#SCH.(R1)* 
#DFTSCH,(R1)* 
#1,(R1)* 
(RD* 



;INIT COMMAND SEQUENCE TABLE POINTER. 

MOV «CMDSEQ, 
;THIS CODE SETS UP A SET CHARACTERISTIC 
.COMMAND AS THE FIRST COMMAND IN THE 
.SEQUENCE TABLE. 
.-SKIP PATTERN LOCATION. 



SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



SETRW:: LET (R1)t :s #RUO ;CMD s REWIND. 

LET (R1)+ 0^ ;BRF. 

LET (R1)^ :s «1 :0 OF OPERATIONS. 

TST (RD* ;SKIP PATTERN. 

RTS PC .-RETURN 



MOV «RWD.(R1 
MOV »1«(R1)« 
MOV «1.(R1)t 



012701 003544 
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2657 
2658 
2659 
2660 
2661 
2662 
2663 

2664 006760 
(4) 006760 

2665 006764 
(4) 006764 
(6) 006764 
(9) 006770 

2666 006772 

2667 006776 
(4) 006776 
(6) 006776 
(9) 007004 

2668 007006 

2669 007012 
(6) 007012 
(9) 007016 

2670 007020 
(6) 007020 
(9) 007026 

2671 007030 
(6) 007030 
(9) 007034 

2672 007036 
(6) 007036 

2673 007044 
(6) 007044 

2674 007052 
(4) 007052 

2675 007060 
(6) 007060 

2676 007066 
(6) 007066 
(9) 007074 

2677 007076 
(4) 007076 

2678 007104 
(4) 007104 

2679 007104 
(4) 007104 

2680 007112 
(4) 007112 

2681 007112 
(4) 007112 

2682 007112 
(4) 007112 

2683 007112 

2684 007116 

2685 007122 
(4) 007122 

2686 007126 
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K 5 



SEQ 0062 



021127 
001527 
004737 



023737 
002116 
004737 

105737 
001435 

023727 
001031 

105737 
001026 

063737 

063737 

013737 

043737 

023727 
002003 



mm 

007722 

003422 
007614 
003523 

003430 

003524 

003444 
003442 
003444 
003440 
003426 



SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 

DEVICES. 

INPUTS: 

OUTPUTS: R2 - TERMINATION INDICATOR (0-END OF TABLEJ^EOT) 

REGISTERS: 

CALLS: CMDAC,SETUP,EXSUB,CKHAE«NEXTU,FIRSTU,VFYDAT. 



003424 



104005 



003442 
003444 
003426 
003426 
000022 



012737 000022 003426 



013737 003426 002322 



004737 
004737 

012702 
004737 



007254 

000001 
016614 



EXALL:: LET R1 «CMDSEQ 

UHILE (R1) NE «END DO 



JSR PC, SETUP 

UHILE NCNT LT NCNT1 DO 



JSR PCCMDAC 

IFB RANDOM NE #0 THEN 



IF CMDURD EQ #URT THEN 
IFB VFYFLC EO /TO THEN 



LET RANB RANB * RANS .-GENERATE 
LET RANS :s RANS * RANB .-RANDOM 
LET BRFCNT :- RANS :LEN6TH 



;INIT SEQUENCE TABL' 3INTER. 

MOV «CMOSEQ, 
;UHILE THERE ARE CMDS IN THE SEQUENCE TA 
50006S: 

CMP (R1),#EN 

BEQ 50007$ 
;G0 SETUP THE COMMAND BLOCK. 
.-WHILE THERE ARE RECORDS REMAINING: 
50010$: 

CMP NCNT.NCN 

BGE 50011$ 

.'STORE CMD ASCII IN ERROR MESSAGE. 

;IF IN RANDOM MODE: 

TSTB RANDOM 

BEQ 50012$ 

.-IF CMD IS A WRITE THEN: 

CMP CMDWRD.« 

BNE 50013$ 

;IF DATA IS NOT TO BE VERIFIED THEN: 

TSTB VFYFLG 

BNE 50014$ 



ADD 
ADD 



RANS. RAN 
RANB.RAN 



MOV RANS.BRF 
LET BRFCNT := BRFCNT CLR.BY LENMSK ;MASK RANDOM LENGTH. 

BIC LENMSK B 

IF BRFCNT LT #18. THEN ;D0 NOT ALLOW BYTE COUNT OF LESS 

CMP BRFCNT .# 
BGE 50015$ 
LET BRFCNT #18. .-CHANGE COUNT OF 0-17 TO 18. 

MOV #18.,BRF 



ENDIF 

LET CMDPKT+CP.CNT := BRFCNT 
ENDIF 
ENDIF 
ENDIF 



50015$: 
.-MOVE BRF TO CMD PACKET. 

MOV BRFCNT.C 

50014$: 
50013$: 



JSR PC.EXSU6 
JSR PC.CKHAE 
LET R2 := #1 

JSR PC.FIRSTU 



50012$: 

.-ISSUE CMD TO ALL.AWAIT INTS. CHECK STATU 
; CHECK HALT AFTER EACH CMD FLAG. 
.-SET ALL UNITS AT BOT/EOT. 

NOV «1 .R2 

;FIND FIRST UNIT. 
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2687 


007132 
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(6) 


007132 


026527 


(9) 


007140 


001426 


2688 


007142 




(6) 


007142 


032737 


(9) 


007150 


001406 


2689 


007152 




(6) 


007152 


032765 


(9) 


007160 


001001 


2690 


007162 




(4) 


007162 


005002 


2691 


007164 




U) 


007164 




2692 


007164 




(4) 


007164 


000411 


(3) 


007166 




2693 


007166 




(6) 


007166 


032765 


(8) 


007174 


001404 


(6) 


007176 


032737 


(9) 


007204 


001001 


(6) 


007206 




269A 






2695 


007206 




(4) 


007206 


005002 


2696 


007210 




(A) 


007210 




2697 


007210 




(4) 


007210 




2698 


007210 


004737 


2699 


007214 




(4) 


007214 


000746 


(3) 


007216 




2700 


007216 




(6) 


007216 


020227 


(9) 


007222 


001001 


2701 


007224 


000412 


2702 


007226 




(4) 


007226 




2703 


007226 




(6) 


007226 


005237 


2704 


007232 




(4) 


007232 


013737 


2705 


007240 




(4) 


007240 


000656 


(3) 


007242 




2706 


007242 


004737 


2707 






2708 


007246 




(4) 


007246 


000646 


(3) 


007250 




2709 


007250 


005002 
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007250 


2710 


007252 


000207 


2711 
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L 5 



SEQ 0063 



17^777 
003430 
003510 



003510 
003430 



003434 



WHILE DEVTBL(R5} NE #END DO ;UHILE THERE ARE MORE UNITS: 

50016$: 

CHP DEVTBLCR 
BEQ 5001 7S 
IF #NOD.C0 SETIN CMDURD THEN :IF CMD IS REVERSE THEN: 

BIT #MOD.C0, 
BEQ 50020$ 

IF #X0.B0T NOTSETIN E0TFLG(R5) THEN :IF NOT AT BOT THEN: 

BIT #X0.60T, 
6NE 50021$ 

LET R2 := #0 ;CLEAR EOT/BOT FLAG. 

CLR R2 

ENDIF 

50021$: 

ELSE ;ELSE IF CND IS NOT REVERSE: 

BR 50022$ 

50020$: 

IF fXO.EOT NOTSETIN E0TFLG(R5) OR fCND.CO NOTSETIN CHDURD THEN 

BIT #X0.E0T« 
BEQ 50023$ 
BIT #CW>.CO, 
8NE 50024$ 

50023$: 

;IF NOT AT EOT OR NOT A MOTION CNO THEN: 
: CLEAR EOT/BOT FLAG. 

CLR R2 



LET R2 :s #0 
ENDIF 
ENDIF 



JSR PCNEXTU 
ENDDO 



IF R2 EQ #1 THEN 



BR 
ENDIF 



EXARTN 



50024$: 
50022$: 

:FIND NEXT UNIT 

BR 50016$ 

50017$: 

;IF ALL UNIT ARE AT EOT/BOT THEN: 

CBP R2,#1 
BNE 50625$ 

.•RETURN WITH R2 - #1. 



LET NCNT := NCNT + #1 
LET PCHDWD i- CHDWRD 
ENDDO 

JSR PC.VFYDAT 
ENDDO 



50025$: 
.•UPDATE RECORD COUNT. 



INC 



;SAVE PREVIOUS COMMAND WORD. 

MOV 

BR 



NCNT 

CMDWRD.P 
50010$ 



LET R2 := #0 
EXARTN: RTS PC 



50011$: 

:IF LAST CMD WAS A WRITE VERIFY, THEN GO 
.•VERIFY THE LAST N RECORDS OF DATA. 

BR 50006$ 

50007$: 

;SET NORMAL RETURN INDICATOR. 

CLR R2 

.•RETURN. 
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2712 






2713 
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2717 
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2719 






2720 






2721 


007254 


004737 


2722 


007260 




(4) 


007260 




(6) 


007260 


026527 


(9) 


007266 


001465 


2723 


007270 




(6) 


007270 


032737 


(9) 


007276 


001421 


2724 


007300 


032765 


(6) 


007300 


(9) 


007306 


001014 


2725 


007310 




(6) 


007310 


032765 


(9) 


007316 


001406 


2726 


007320 




(6) 


007320 


105737 


(9) 


007324 


001402 


2727 


007326 


004737 


2728 


007332 




(4) 


007332 




2729 


007332 


000402 


(4) 


007332 


(3) 


007334 




2730 


007334 


004737 


2731 


007340 




(4) 


007340 




2732 


007340 




(4) 


007340 




2733 


007340 




(4) 


007340 


000435 


(3) 


007342 




2734 
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(6) 


007342 


023727 


(9) 


007350 


001011 


(6) 


007352 


032765 


(9) 


007360 


00U05 


2735 






2736 


007362 




(4) 


007362 


016537 


2737 


007370 




(4) 


007370 


005077 


2738 


007374 




(4) 


007374 
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n 5 



SEQ 0064 



002536 

000400 

000002 

000001 

003532 
010576 



U7777 
003430 
003510 
003510 



SUBROUTINE TO ISSUE COWIAND TO ALL DEVICES, WAIT FOR 
ALL INTERRUPTS. AND CHECK ALL STATUS. 
INPUTS: 
OUTPUTS: 

REGISTERS: 

CALLS : EXCUTE ,GOUAI T ,NEXTU,F IRSTU. 

EXSUB:: JSR Pf.FIRSTU ;SET UP FOR FIRST UNIT. 

WHILE DEVTBL(R5) NE «ENO DO ; WHILE THERE ARE MORE DEVICES: 

50026S: 

CUP 
BEO 

IF «li0D.C0 SETIN CMDWRD THEN :IF CMD IS REVERSE THEN: 

BIT 
BEQ 

IF #X0.B0T NOTSETIN E0TFL6(R5) THEN ;IF NOT AT BOT 

BIT 
BNE 

IF #X0.E0T SETIN E0TFL6(R5) THEN ;BUT IF AT EOT 

BIT 



000002 
003510 

003520 



003510 
003430 



IFB ALLEOT NE #0 THEN 



JSR PCEXCUTE 
END IF 



DEVTBL(R 
50027$ 

«noD.co, 

50030$ 

#X0.BOT, 
50031$ 

fXO.EOT, 
50032$ 



ELSE 



JSR PCEXCUTE 
ENDIF 



ENOIF 
ELSE 



BEQ 

;AND ALL OTHERS AT EOT 

TSTB ALLEOT 
BEO 50033$ 

;THEN EXECUTE REV CM) 

;IF NOT ALL AT EOT, FREEZE UNIT( 
50033$: 

;IF NOT AT BOT AND 

BR 50034$ 

50032$: 

;N0T AT EOT, EXEC REV CH 
50034$: 



50031$: 

.•ELSE IF CM) IS NOT REVERSE: 

BR 50035$ 

50030$: 

IF CMDLG EQ #2 AND «X0.BOT SETIN E0TFLG(R5) THEN 

CHP C?«LG,#2 

BNE 50036$ 

BIT #X0.BOT. 

BEQ 50036$ 
.CLEAR BAD SPOT COUNTS WHEN WRITING FROM 
LET BTPI .- BTA0»(R5. ^ 

*• CLR «TPT 

ENDIF cnn,x. 

50036$: 

IF fXO.EOT NOTSETIN E0TFL6(R5) OR fCHO.CO NOTSETIN CNDWRD THEN 

BIT «X0.EOT, 

BEQ 50037$ 

BIT «CMD.CO. 
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(9) 


007412 


AA« AAV 

001003 


(6) 


007414 




2740 








007414 


AA/ 

004737 


27A2 


007420 




(4) 


007420 


AAAi AC 

000405 


(3) 


007422 




2743 


007422 




(o) 


0074ZZ 


1 Ae7T7 

105737 


(9) 


AA7/ 

007A26 


AA1 / A^ 

001402 


2744 


AA7/ TA 

007430 


AAy 7T7 

004737 


2745 


AA7y V/ 

007434 




(4) 


AA7y 

007434 




2746 


nn7/ X/ 
007434 




(4) 


007434 




2747 


007434 




(4) 


007434 




2748 


AA7/ T/ 

007434 


004737 


2749 


AA7/ / A 

007440 


AAA7A7 

000 70 r 


(4) 


AA7/ / A 

007440 


(3) 


AA7/ / O 

007442 




2750 


007442 




(6) 


AA7/ / O 

00 f 44c 


1 AC7T7 

105f Jf 






UUl HVi 


2r5l 


UUf '•50 




#/ \ 
(h; 




1 ACA77 

IU5Uj7 


tfr5tf 


AA7/.C/ 

UU/^m5h 






rtA7/ C/ 
UUf H5H 


1 A/ /, 0/, 


2753 


AA7/ 

00/^456 




(A) 


AA7/ 

007456 






AA7/ ex. 


00H73f 


2755 


AA7/ XI 

007462 




(4) 


AA7/ XI 

007462 




(6) 


AA7/ XI 

007462 


A'1XC^7 

02652 


(9) 


AA7y 7A 

007470 


AA4 / CA 

001450 


2756 


AA7i 7^ 

007472 




(6) 


AA7/ TO 

007472 


A10717 

032757 


(9) 


AA7CAA 
007500 


AA4 / ^1 

001421 


27^7 


AA7CAO 

00 r5U2 




(6) 


AA7CAO 

007502 


032765 


(▼J 


OUf 5 ly 


AA1 A1 / 
001 01 H 


2758 


AA7C1 O 

OOf 5 12 




(6/ 


OOf 512 


03276) 






AA4/,AX 

Owl ^00 




UUr522 




/it ^ 
(6J 


WfJcc 


lOjfjr 


(9) 


AA7COX 

00O26 


AA1/ AO 

001<»02 


2760 


AA7C'<A 


00*737 


2761 


















(4) 


007534 


O00'*02 


(3) 


007536 




2763 


007536 


004737 


2764 


007542 




(4) 


007542 





002536 

000400 

000002 

000001 

003532 
011166 
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N 5 



177777 
003430 
003510 
003510 



BNE 



SEQ 0065 
50040$ 



JSR PCEXCUTE 
ELSE 



50037$: 

;IF NOT AT EOT OR NOT A MOTION CMO THEN: 
.•ISSUE CND TO TU80. 



IFB ALLEOT NE #0 THEN 



JSR PCEXCUTE 
ENDIF 



50040$: 



BR 



TSTB 
BEO 



50041$ 



ALLEOT 
50042$ 



ENDIF 
ENDIF 



JSR 
ENDDO 



PCNEXTU 
IFB RPTFLG NE #0 THEN 



LET RPTFLG :B= #0 
DORPT 
ENDIF 

JSR PCFIRSTU 



50042$: 
50041$: 
50035$: 

;FIND NEXT UNIT IN TEST CYCLE. 

BR 

50027$: 

;IF REPORT HAS BEEN REQUESTED THEN: 

TSTB RPTFLG 
BEQ 50043$ 

;CLR THE FLAG, 

CLRB RPTFLG 
;PRINT THE PERFORMANCE REPORT. 

TRAP C$DRPT 



50026$ 



50043$: 

;SET UP FOR FIRST UNIT. 
WHILE DEVTBL(R5) NE #END DO ;UHILE THERE ARE MORE DEVICES: 

50044$: 

CMP DEVTBL(R 
BEQ 50045$ 
IF mOD.CO SETIN CMDWRD THEN :IF CND IS REVERSE THEN: 

BIT fMOD.CO, 
BEQ 50046$ 
IF fXO.BOT NDTSETIN E0TFLG(R5) THEN ;IF NOT AT BOT 

BIT #X0.B0T, 
BNE 50047$ 
IF fXO.EOT SETIN E0TFLG(R5) THEN :BUT IF AT EOT 

BIT #X0.EOT. 
BEQ 50050$ 

IFB ALLEOT NE #0 THEN :AND ALL OTHERS AT EOT 

TSTB ALLEOT 
BEQ 50051$ 

JSR PC.GOUAIT .-THEN WAIT FOR CMD END 

ENDIF ;IF NOT ALL AT EOT. DO N 

§0051$: 

ELSE ;N0T AT BOT, AND NOT AT 

BR 50052$ 

50050$: 

JSR PC.6i>WAIT .-WAIT FOR INT.CH 
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2765 


007542 




(4) 


007542 




2766 


007542 




(4) 


007542 


000420 


(3) 


007544 




2767 


007544 




(6) 


007544 


032765 


(8) 


007552 


001404 


(6) 


007554 


032737 


(9) 


007562 


001003 


(6) 


007564 




2768 






2769 


007564 


004737 


2770 


007570 




(4) 


007570 


000405 


(3) 


007572 




2771 


007572 




(6) 


007572 


105737 


(9) 


007576 


001402 


2772 


007600 


004737 


2773 


007604 




(4) 


007604 




2774 


007604 




(4) 


007604 




2775 


007604 




(4) 


007604 




2776 


007604 


004737 


2777 


007610 




(4) 


007610 


000724 


(3) 


007612 




2778 


007612 


000207 
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B 6 



SEQ 0066 



ENDIF 
ELSE 



50047S: 
.-ELSE IF CMO IS FORWARD: 

BR 50053S 
^0046$: 

IF »XO.EOT NOTSETIN E0TFL6(R5) OR #CMO.CO NOTSETIN CNDURO THEN 

BIT «X0.EOT, 
BEQ 50054$ 
BIT «CW>.CO, 
BNE 50O55S 

50054$: 

:IF NOT A1 EOT OR NOT A PWTION CPD THEN: 
JSR PC.GOWAIT ;WAIT FOR INT, CHECK STATUS. 

^'^^ BR 

50055$: 

IFB ALLEOT NE #0 THEN 

TSTB 
BEQ 

JSR PC.GOWAIT 
ENOIF 

50057$: 
50056$: 
50053t: 

JSR PCNEXTU :FINO NEXT UNIT IN TEST CYCLE. 

ENDOO 

BR 

50045$: 

RTS PC ; RE TURN. 



50056$ 



ALLEOT 
50057$ 



50044$ 
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C 6 



SEO 0067 



2780 








2781 








2782 








2783 








2784 








2785 








2786 








2787 








2788 


007614 




003430 


(4) 


007614 


013704 


2789 


007620 


004737 


007670 


2790 


007624 


112337 


006156 


2791 


007630 


112337 


006157 


2792 


007634 


111337 


006160 


2793 


007640 




003434 


(4) 


00r640 


013704 


2794 


007644 


004737 


007670 


2795 


007650 


000240 




2796 


007652 






(4) 


007652 


112337 


006272 


2797 


007656 






(4) 


007656 


112337 


006273 


2798 


007662 






(4) 


007662 


111337 


006274 


2799 


007666 


000207 




2800 








2801 








2802 








2803 








2804 








2805 








2806 








2807 








2808 








2809 








2810 


007670 






(4) 


007670 


005003 




2811 


007672 






(4) 


007672 






(6) 


007672 


026304 


003646 


(9) 


007676 


001403 




2812 


007700 






(6) 


007700 


062703 


000002 


2813 


007704 






(4) 


007704 


000772 




(3) 


007706 






2814 


007706 






(4) 


007706 


010304 




2815 


007710 






(7) 


007710 


006203 




2816 


007712 


060403 




2817 


007714 


062703 


003734 


2818 


007720 


000207 





THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
COWAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDURD 
CONTAINS CURRENT CMO AND LOCATION PCMDWD CONTAINS PREVIOUS CHO. 
INPUTS: 



OUTPUTS: 

REGISTERS: R3, R4. 

CALLS: GCMDA 

CMDAC:: LET R4 i- CNDWRD 

JSR PC.GCWA 

HOVB (R3)*.STAER1*2 

HOVB (R3)*,STAERU3 

nOVB (R3),STAERU4 
LET R4 PCNOUD 

JSR PCGCHDA 
NOP 

LET STAER7*24 :8* (R3)* 
LET STAER7*25 :8= (R3)* 
LET STAER7*26 rB* (R3) 
RTS PC 



R4 - CND BINARY. 

GET CMD ASCII. 
MOVE CND ASCII 



MOV 



INTO MSG. 

R4 = PREVIOUS CHD BINARY. 

MOV 

GET cm ASCII. 



MOVE CHD ASCII 



INTO MSG. 



MOVB 
MOVB 
MOVB 



CMDURD.R 

PCMDWD.R 

(R3)*.ST 
(R3)*.ST 



RETURN. 60 EXECUTE NEXT FUNCTION. 



(R3),STA 



SUBROUTINE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4. 

ADDRESS OF ASCII 1ST WORD IS RETURNED IN R3. 

INPUTS: R4 = PRESENT COMNANO WORD. 

OUTPUTS: R5 = ADDRESS OF PRESENT COMNANO ASCII. 

REGISTERS: 



CALLS: 
GCNDA:: LET R3 :» «0 

WHILE CN0T8L(R3) NE R4 DO 

LET R3 := R3 ♦ #2 
ENDDO 

LET R4 :s R3 

LET P3 :* R3 SHIFT -1 



:INIT CHD TBL POINTER. 



CLR 



.•UNTIL CURRENT CND IS FOUND: 
50060$: 

CNP 
8EQ 

.•SEARCH CND TABLE. 

ADD 



50061 S: 



BR 



NOV 



ADD 
ADD 
RTS 



R4,R3 

#CNDASC«R3 
PC 



.•POINT TO ASCII FOR THAT COMMAND 

ASR R3 



;RkTURN. 



R3 

CNOTBL(R 
S0061S 

ff2.R3 

50060S 

R3.R4 



GLOBAL AREAS 
C2TUVB.P11 
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SEQ 0068 



2820 








2821 








2822 








2823 








2824 








2825 








2826 








2827 


007722 






(4) 


007722 


005037 


003436 


2828 


007726 


012137 


002314 


2829 


007732 


011137 


002322 


2830 


007736 


011137 


003426 


2831 


007742 


013702 


002314 


2832 


007746 


042702 


177740 


2833 


007752 


010203 




2834 


007754 


162703 


000010 


2835 


007760 


001003 




2836 


007762 


011137 


002316 


2837 


007766 


000461 




2838 


007770 






(6) 


007770 


023727 


002314 


(9) 


007776 


001003 




2839 


010000 






(4) 


010000 


012737 


000002 


2840 


010006 






(4) 


010006 






2841 


010006 


010203 




2842 


010010 


162703 


000001 


2843 


010014 


001017 




2844 


010016 


013737 


003420 


2845 


010024 






(6) 


010024 


032737 


000400 


(9) 


010032 


001404 




2846 


010034 






(4) 


010034 


012737 


000004 


2847 


010042 






(4) 


010042 


000403 




(3) 


010044 






2848 


010044 






(4) 


010044 


012737 


000006 


2849 


010052 






(4) 


010052 






2850 


010052 


000427 




2851 


010054 


010203 




2852 


010056 


162703 


000004 


2853 


010062 


001011 




2854 


010064 






(4) 


010064 


012737 


002446 


2855 


010072 


012737 


000010 


2856 


010100 






(4) 


010100 


011137 


002454 


2857 


010104 


000412 




2858 


010106 


010203 




2859 


010110 


162703 


000006 


2860 


010114 


001006 




2861 


010116 


012737 


000020 



100011 
003436 



002316 
002314 

003436 



003436 



002316 
002322 



002322 



THIS SUBROUTINE LOADS THE TU80 
ENTRY IN THE SEQUENCE TABLE. 
INPUTS: 
OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: GENPAT. 

SETUP:: LET CMDLG #0 

MOV (R1)+.CHDPKT 

MOV (R1),CHDPICT*CP.CNT 

MOV (RD^BRFCNT 

MOV CMDPKT«R2 

BIC «NCnD.C,R2 

MOV R2«R3 

SUB «CMD.C3«R3 

BNE 2% 

MOV (R1),CMDPfCT+2 

BR 3$ 
2$: IF CMDPKT EQ fUTM THEN 



LET CMDLG :« »2 
ENDIF 

MOV R2,R3 

SUB #CND.C0.R3 

BNE IS 

MOV DATARD,CNDPKT*CP.AOL 
IF MOD. CO SETIN CMDPKT THEN 



LET CMDLG #4 
ELSE 

LET CMDLG :- #6 
ENDIF 

BR 3$ 

IS: MOV R2,R3 

SUB «CMD.C2,R3 

BNE 4S 

LET CWPKT^CP.ADL :- «SCHBK 

NOV #SCHCNT,CMDPKT4CP.CNT 
LET SCHBK^6 :- (RD 

BR 3S 

4S: MOV R2,R3 . , 

SUB fCMD.Cl!CMD.C2,R3 

BNE 3S 

MOV «DIACNT,CNDPKT«CP.CNT 



COMMAND PACKET FROM ONE 



;CLR CMD LOGGING CODE (DISABLES LOGGING) 

CLR CMDLG 

:LOAD THE COMMAND WORD. 
;LOAD THE BYTE/RECORD/FILE COUNT. 
:SAVE BRF FOR THIS COMMAND. 
;6ET CMD. 

:CLR ALL BUT CMD BITS. 
;SAVE IT TWICE. 
.-POSITION COMMAND? 
;BR IF NOT. 

;MOVE BPCR IN 2ND PKT WORD FOR POSITION 



:IF CMD IS A WRITE TAPE MARK THEN: 



CMP 
BNE 

;WTM LOGGING CODE IS 2. 



50062S; 

;IS IT A READ? 
'BR IF NOT 

•IF SO, LOAD THE BUFFER AODR. 

:1F CMD IS A READ REV THEN: 

BIT 
BEG 

.•LOGGING CODE IS 4. 

NOV 

.-ELSE - IF CND IS A READ FUD: 

BP 

50063S: 
.•LOGGING CODE IS 6. 

NOV 



CNDPKT.# 
50062S 

«2.CMDLG 



mx>.co, 

S0063S 
«4. CMDLG 
50064S 

«6. CMDLG 



50064S: 

.•CONTINUE. 
;IS IT 

:A SET CHARACTERISTICS CND? 
;BR IF NOT. 

; SET UP ADR LO FOR SET CHAR. 

NOV «SCHBK.C 

:SET BUFFER EXTENT 

.•STORE CHARACTERISTIC CODE IN SCH BLOCK. 

NOV (RD.SCH 

.-CONTINUE. 
.IS IT 

;A DIAGNOSTIC (DIA) CND? 

:BR IF NOT. 

.•LOAD BUFFER EXTENT. 



GLOBAL 


AREAS 
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2862 


01012A 


012737 


003A16 


2863 


010132 


005721 




286A 


01013A 






(4) 


01013A 


012137 


003A2A 


2865 


0101A0 






(4) 


0101A0 


005037 


003A22 


2866 


0101AA 


012137 


003A56 


2867 


010150 


010203 




2868 


010152 


162703 


000005 


2869 


010156 


001010 




2870 


010160 


013737 


003A16 


2871 


010166 


00A737 


A 4 AVAA 

010300 


2872 


010172 






(A) 


010172 


A4 

012737 


AAAAA*^ 

000002 


2873 


010200 






(6) 


010200 


032737 


AAA4 AA 

000100 


(9) 


010206 


AA4 M A^ 

001 A07 




287<» 


010210 






(A) 


010210 


4 4 1797 

112737 


A A AAA 4 

000001 


2875 


010216 


0A2737 


A aA4 AA 

000100 


2876 


0i022A 






(A) 


01022A 


000A02 




(3) 


01 0226 






2877 


010226 






(A) 


010226 


1 ACAT7 

10503^ 


OOjScA 


2878 


A1 A'^V^ 

010232 






(A) 


A1 A^V^ 

010232 






2879 


A<l A^ 

010232 






(A) 


010232 


A4 

013737 


003A30 


2880 


A4 A^4 A 

0102A0 






(A) 


A <■ A^ J A 

0i02A0 


A4 9797 

013737 


AA191 i 

C0231A 


2881 


0102A6 




003526 


(6) 


0102A6 


4 Ar797 

105737 


(9) 


010252 


AA4 § A9 

001 A03 




2882 


A4 A'H^ t 

01025A 






(6) 


01Uc5h 




U1UUUU 


2883 


010262 






(A) 


010262 






288A 


010262 


0A2737 


OOAOOO 


2885 


0102/0 




0023U 


(A) 


010270 


013737 


2886 


010276 


000207 
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E 6 



nOV fDIABLK.CMDPKT^CP.ADL 
3$: TST (RD* 

LET NCNT1 := (RD* 

LET NCNT :s #0 

NOV (R1)*«PATERN 

MOV R2 R3 

SUB «CND.C0'CND.C2,R3 

BNE 5$ 

NOV DATAWT,CMOPKT*CP.ADL 

JSR PC^GENPAT 
LET CMDLG #2 

5S: IF fVFY.C SETIN CNDPKT THEN 



LET VFYFLG :B= #1 

#VFY.C.CHDPICT 



BIC 
ELSE 



LET VFYFLG :B- #0 
ENDIF 

LET PCNDUD CMDURD 
LET CMDURD CMDPKT 
IFB SUBFLG NE #0 THEN 

LET CNDPKT :s CNDPKT SET. BY 
ENDIF 

BIC #BRF.C. CNDPKT 
LET CNDSAV := CNDPKT 



SEQ 0069 

.-LOAD BUFFER ADR LOW. 

;P0INT TO H (NUNBER OF TINES TO EXECUTE 

:SAVE Nlf«ER OF OPERATIONS 

«0V (R1)*,NC 
: CLEAR OPERATION Ca'NTER. 

CLR NCNT 
.-SAVE PATTERN CODE FOR CURRENT CND. 
;IS IT 
;A WRITE? 
'BR IF NOT 

•LOAD WRITE BUFFER LO ORDER. 

;G0 GENERATE THE WRITE PATTERN. 

;WRITE LOGGING CODE IS 2. 

NOV f2,CN0LG 

;IF DATA VERIFICATION IS REQUIRED: 

BIT fVFY.C.C 
BEQ 50065$ 

;SET VERIFY FLAG. 

N0V8 f1,VFYFL 
.-CLEAR VERIFY BIT (NOT USED BY HARDWARE). 
;IF DATA VERIFICATION IS NOT REQUIRED: 



50065S: 
:CLR VERIFY FLAG. 



BR 



CLR6 



50066$: 
.-SAVE PREVIOUS CND WORD. 

NOV 

.'SAVE PRESENT CND WORD. 

NOV 

;IF SWAP BYTES IS ENABLED: 

TSTB 
BEQ 

#SWB C ;SET SWAP BIT IN COWIANO. 

BIS 



50066$ 
VFYFLG 

CNDWRD.P 

CNDPKT. C 

SUBFLG 
50067$ 

«SUB.C.C 



RTS 



PC 



50067$: 

;CLR BRF BIT (INTERNAL ONLY). 
.-SAVE 1ST WORD OF CONHAND PACKET. 

NOV CNDPKT. C 

.•RETURN. 



GLOBAL 


AREAS 
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CZTUVB.Pll 12-JUL-83 09:26 


COOO 








2889 








2890 








<:091 








2892 








2893 








COTH 








2o95 


010300 








01 0300 


A1 T7AT 

013f03 


003430 


( r ) 


A1 ATA/ 

01030h 


AAXTAT 

00o303 




coVo 


A1 ATAX 

01030O 






/y \ 


A1 ATAiL 

01 0300 


A1 T7A/. 

013rOM 


AATA 3iL 

003m2o 


COJ 


A1 ATI "i 

010312 


009204 






A1 ATI L 

01031m 






(o) 


A1 ATI L 

01031m 


A/ 07A/. 

OM2rOM 


AAAAA1 

000001 




A1 ATOA 

010320 






KO) 


AlrtTOA 

010320 


lOcf Om 


nnn/m3 
OOOUUc 




A1 ATO/. 

01032m 






//. \ 


A1 AT3Z, 

0 1 032*» 


A1 X7rt3 
01 3f 02 


UU3m I 0 




A1 ATTA 

0 10330 


00er02 


OOOOOc 


eWU 


A1 ATTA 

01033m 


AA/. 77T 
00m ft 3 


AinT/,3 

01 03m2 


?om 
cWl 


U1U3mU 


UUvcUr 




cWe 
































eWO 


0 i03Me 


A1 ATAA 
U 1 V jOM 






V 1 U^MM 


010^33 




ctUO 


0 IU3mO 


0 1 Ummc 




ctUt 


0 IU3jU 


ninz,<3 

U IUm3c 






A1 A'l^D 
0 10332 


U 1 VM f O 




ev 1 1 


01 ATC/ 


A1AC1A 






U IUj30 


U IU3CC 




0O1 T 


A1 ATAA 

010300 


0 IUDmc 






nmTA3 

0103OC 


U IU3r M 












901 A 
CT lO 








301 7 
















3010 


0 IU30M 








U IU30M 




UUwMUU 


cyco 


A1 tW7t\ 
0103f 0 






ID/ 


ninx7n 

M\\J3f\J 


1 Oc ' wM 


vwUvwC 


3031 

2yci 


A1 t\X7L 
0IU3f M 


inn/,1 1 

IUUm I 1 






U IU3r 0 








0 IU3r O 


U 1 vjCC 




eye J 


rti h^nn 






/A) 


A1 AT AA 

U IUmwU 


UOc r U3 


nni no3 


303A 


UIUmUm 








010A0A 


020527 


001000 

W I www 


(9) 


010410 


001002 




2925 


010412 






(4) 


010412 


012705 


000400 


2926 


010416 






(A) 


010416 






2927 


010416 


000764 
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SEQ 0070 



THIS :>UBR0UTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERAT 
THE DESIRED PATTERN FOR THE WRITE AND URITE/VERIFY COMMANDS. 
INPUTS: 
OUTPUTS: 

REGISTERS: R2, R3, R4. 
CALLS: PATRO - PATR7 



6ENPAT:: LET R3 :- PATERN SHIFT 1 

LET R4 := BRFCNT ♦ #1 ;SET LENGTH OF URITE BFR 



.•SETUP PATTERN ROUTINE POINTER 

nov 



LET R4 :- R4 CLR.BV #1 
LET R4 := R4 - #2 
LET R2 DATAUT ♦ #2 



J'l PC,aPATTBL(R3) 
RTS PC 



ASL 

NOV 

INC 

BIC 

SUB 

NOV 
ADO 

;G0 GENERATE THE APPROPRIATE PATTERN. 
;RETURN TO SETUP SUBROUTINE. 



.'ROUNDED UP TO NEXT WORD 
.-WITH FIRST WORD RESERVED 
;FOR RECORD COUNT 



PATERN.R 
R3 

BRFCNT. R 
R4 

«1.R4 

#2.R4 

DAT AWT. R 
#2.R2 



;TU80 WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
;CORRECT DATA PATTERN GENERATING ROUTINE. 



PATTBL: 



PATRO 
PATR1 
PATR2 
PATR3 
PATR4 
PATR5 
PATR6 
PATR7 
PATR8 



INCREMENTING PATTERN. 0 - 377 

ALL ONES PATTERN 

ALL ZEROES PATTERN 

•1* BIT SHIFT. RICHT TO LEFT 

•0' BIT SHIFT. RIGHT TO LEFT 

ALTERNATE '0' t 'V WITH ALT. BYTES COMPL. 

ALTERNATE BYTES OF 000 AND 377 

RANDOM PATTERN. 

DUMMY. NO PATTERN. JUST EXITS. 



.'INCREMENTING PATTERN. 0 - 377. 
PATRO:: LET R3 :- #400 
1$: LET R4 := R4 - #2 



BMI 2S 

LET (R2)* i' R3 

LET R3 :s R3 ♦ #1002 

IF R? EQ #1000 THEN 

LET R3 :- #400 
ENDIF 

BR 1$ 



.■DECREMENT WORD COUNT. 

;BR IF DONE. 
.•STORE DATA WORD. 

.•UPDATE PATTERN. 



MOV 

SUB 

MOV 
ADD 



;IF PATTERN HAS WRAPPED AROUND THEN: 

CMP 
BNE 

;INIT THE PATTERN AGAIN. 

MOV 



#400.R3 
#2.R4 

R3.(R2)* 

#1002.R3 

R3.#1000 
S0d70$ 

#400.R3 



:D0 IT AGAIN. 



50070$: 



GLOBAL AREAS 
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2928 
2929 
2930 
2931 
2932 
2933 
(6) 
2934 
2935 
2936 
2937 
2938 



010<20 000207 



010422 
010426 
010426 
010432 
010434 
010436 



012703 

162704 
100402 
010322 
000773 



M7777 
000002 



6 6 
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2S: RTS PC 

;ALL ONE'S PATTERN. 



PATR1:: MOV 
ZROPAT: LET R4 

BMI 
MOV 
BR 



010440 000207 



IS: 



RTS 



#-1,R3 
:= R4 - 92 

1$ 

R3,(R2}* 
ZROPAT 

PC 



SEQ QO'n 



.•RETURN. 



;ALL ONES PATTERN;. 
.•DECREMENT BYTE COUNT. 

SUB «2.R4 

;D0NE?,BR IF YES. 

:IF NOT LOAD NEXT BYTE WITH PATTERN. 
:D0 IT AGAIN. 

.•RETURN. 



GLOBAL AREAS 
CZTUVB.PII 



29A0 






29A1 






29A2 


010442 


005003 


2943 


010444 


004737 


2944 


010450 


A A A A ^ 

000207 


2945 






2946 






2947 






2948 


010452 


012703 


2949 


010456 




(6) 


010456 


162704 


2950 


010462 


4 AA J A ^ 

100404 


2951 


010464 


A4 A V^'^ 

010322 


2952 


010466 


AA^ 9A9 

006303 


2953 


010470 


A AP C A9 

005503 


2954 


010472 


000771 


2955 


010474 


AAA^ A^ 

000207 


2956 






2957 






2958 






2959 


010476 


012703 


2960 


A4 AP A^ 

010502 
iOS06 


AA/ 

004737 


2961 


AAA^A7 

000207 








2963 












2965 






2966 


A4 AC i A 

010510 


Ai 07AT 

012^03 


2967 


A4 Ar 4 / 

010514 


AA^ 

004737 


2968 


A4 Af ^A 

010520 


AAA^A7 

000207 


2969 






2970 






2971 






2972 


010522 


A1 07AT 

012703 


2973 


010526 




(6> 


A1 ACOA 






A1 ACTO 


1 AA/ AO 

1 UUhU2 


Z9r 5 


A1 ACT/ 

010^34 


A1 ATOO 

010322 


2976 


A4 ACTA 

010536 


AAA77T 

000773 


2977 


A4 AC/ A 

010540 


AAAOA7 

000207 


2978 






2979 






2980 






2981 


A4 AC/ 'i 

010542 




(6/ 


A1 AC/ 0 

0 iU>42 


102rU* 


2982 


A1 AC/ iL 
0 IU>40 


1 AA/. 1 1 


2983 


A1 ACCA 

01033U 


AXT7i7 


2984 


A1 ACCA 

010556 


AA77T7 

063737 






w 1 J( cC 


2986 


010570 


000764 


2987 


010572 


000207 


2988 






2989 






2990 






2991 


010574 


000207 
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SEQ 0072 



000401 
000002 



177376 
010456 



125125 
010426 



177400 
000002 



000002 

003444 003442 
003442 003444 
003444 



PATR2:: 



PATR3:: 
ULKZRO: 



IS: 



;ALL ZEROES PATTERN. 



PATR4:: 



CLR 
JSR 
RTS 



R3 

PCZROPAT 
PC 



:CLR PATTERN REGISTER. 
;G0 GENERATE IT. 
.•RETURN. 



:0NE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 



nov «401 ,R3 
LET R4 R4 - «2 



BMI 

nov 

ASL 
ADC 
BR 
RTS 



IS 

R3,(R2}* 

R3 

R3 

ULKZRO 
PC 



:INIT PATTERN REGISTER. 
.•DECREMENT WORD COUNT. 

;BR IF DONE. 

:LOAD DATA. 

.•SHIFT PATTERN. 

:ADD CARRY BACK INTO PATTERN. 

;D0 IT AGAIN. 

.•RETURN. 



SUB 



#2.R4 



PATR5:: 



PATR6:: 
IS: 



;ZER0 BIT WALKING FROM R TO L IN A FIELD OF I'S. 

MOV #177376, R3 :INIT PATTERN REGISTER. 

JSR PC.WLKZRO ;G0 GENERATE ;IT. 

RTS PC ;RETURN. 

.•ALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
: COMPLEMENTED. 

MOV f125125,R3 :INIT PATTERN REGISTER. 

JSR PC.ZROPAT ;C0 GENERATE IT. 

RTS PC ;RETURN. 

.•ALTERNATING BYTES OF 000 AND 377. 

MOV #177400. R3 ;INIT PATTERN REGISTER. 

LET R4 :s R4 - #2 * DECREMENT WORD COUNT. 

6MI 2S ;BR IF DONE. 

MOV R3,(R2}* :LOAD DATA. 

BR IS ;D0 IT AGAIN. 

RTS PC : RE TURN. 



SUB 



#2.R4 



2S: 

PATR7:: LET R4 := R4 - #2 



; RANDOM PATTERN GENERATOR 



GIT: 



PATR8: 



BMI 

ADD 

ADD 

MOV 

BR 

RTS 



GIT 

RANS,RANB 

RANB.RANS 

RANS,(R2}> 

PATR7 

PC 



NO PATTERN GENERATION. 
RTS PC 



.-DECREMENT WORD COUNT 

;BR IF DONE. 

;GET NEW #. 
.•SAVE #. 
.•CONTINUE. 
.•RETURN 

.•RETURN. 



SUB 



#2,R4 



GLOBAL 


AREAS 
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09:26 


2993 








2994 








2995 








2996 








2997 








2998 








2999 








3000 


010576 






(4) 


010576 


012737 


\mn 


3001 


010604 






(3) 


010604 






3002 


010604 






(6) 


010604 


005337 


003446 


3003 


010610 






(6) 


010610 


005737 


003446 


(9) 


010614 


001011 




3004 


010616 


004737 


011552 


3005 


010622 






(4) 


010622 


104455 




(5) 


010624 


000002 




(5) 


010626 


004355 




(5) 


010630 


005642 




3006 


010632 


004737 


016716 


3007 


010636 


000552 




3008 


010640 






(4) 


010640 






3009 


010640 






(3) 


010640 


032775 


AAA A A 

000200 


(6) 


010646 


001 756 




3010 


010650 






(6) 


010650 


023727 


003430 


(9) 


010656 


001022 




3011 


010660 






(4) 


010660 


010537 


003462 


3012 


010664 


004737 


016614 


3013 


010670 






(4) 


010670 






(6) 


010670 


026527 


002536 


(9) 


010676 


001405 




3014 


010700 


004737 


011516 


3015 


010704 


004737 


016662 


3016 


010710 






(4) 


010710 


000767 




(3) 


010712 






3017 


010712 






(4) 


010712 


013705 


003462 


3018 


010716 


016537 




(4) 


010716 


002506 


3019 


010724 






(4) 


010724 






3020 


010724 






(4) 


010724 


016503 


002506 


3021 


010730 






(4) 


010.'30 


005002 




3022 


010732 






(4) 


010732 
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SEQ 0073 



003446 



002466 
140004 



002446 



THIS SUBROUTINE INITIATES TU80 
AND CHECKS FOR TU80 RESPONSE. 
INPUTS: 
OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: DROPU, MOVMSG, 

EXCUTE::LET TIME1 :* #-1 

REPEAT 

LET TIHE1 :s TIME1 - #1 

IF TIME1 EQ #0 THEN 



JSR PC.NOVnSG 

ERRDF 2,NSSRM,STAERM 



JSR PC«DROPU 
BR EXCRTN 
ENDJF 

UNTIL #TS.SSR SETIN aTSSR(R5) 
IF CHDURD EQ #SCH THEN 

LET R5SAVE :* R5 

JSR PCFIRSTU 

WHILE DEVTBL(R5) NE #END DO 



COMMAND EXECUTION 

FIRSTU, NEXTU, USSR. 
INIT TIMEOUT COUNTER. 
WAIT - 

50071$: 
UPDATE TIMEOUT COUNTER. 

IF TIMED OUT: 



JSR PCWSSR 
JSR PC.NEXTU 
ENDDO 



LET R5 :- R5SAVE 
LET SCHBK :« MSGPKA(R5) 
ENDIF 

LET R3 :» MSGPKA(R5) 

LET R2 :- #0 

WHILE R2 NE ^ttSGCNT DO 



MOV 



DEC 

TST 
BNE 



;MOVE CURRENT PACKET MSG. 

; REPORT TU80 NOT READY 

TRAP 
.WORD 



#-MIME 



TIMEl 

TIME1 
50072$ 



C$ERDF 

2 



.•DROP THE UNIT. 
.•RETURN. 



.WORD NSSRM 
.WORD STAERM 



50072$: 

.-WAIT UNTIL DEVICE IS READY. 

BIT #TS.SSR. 

BEQ 50071$ 
:IF WE ARE DOING A SET CHAR CMD THEN: 

CMP CNDWRD.# 

BNE 50073$ 
.•SAVE CURRENT DEVICE POINTER. 

MOV R5.R5SAV 

.•FIND FIRST UNIT. 

50074$: 

CMP DEVTBL(R 
BEQ 50075$ 

.•WAIT FOR UNIT READY OR TINE OUT, 

;FIND NEXT UNIT. 

BR 50074$ 

50075$: 

.•RESTORE CURRENT DEVICE POINTER. 

MOV R5SAVE R 
:SET UP ADR OF MSG PKT IN SCH BLOCK.' 

MOV MSGPKA(R 



50073$: 

ADR OF THIS UNIT'S MSG PACKET. 

MOV MSGPKA(R 

CLR COUNTER. 

CLR R2 
WHILE THERE ARE MORE LOCATIONS: 
50076$: 



GLOBAL 


AREAS 


KACY11 


30(1046 
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(6) 


010732 


020227 


000016 


(9) 


010736 


001405 




3023 


010740 






(4) 


010740 


012723 


mm 


3024 


010744 






(6) 


010744 


062702 


000002 


3025 


010750 






(4) 


010750 


000770 




(3) 


010752 






3026 


010752 


105737 


002212 


3027 


010756 


001023 




3028 


010760 






(6) 


010760 


126527 


003500 


(9) 


010766 


003412 




3029 


010770 






(4) 


010770 


017537 


002466 


3030 


010776 






(4) 


010776 


104455 




(5) 


011000 


000017 




(5) 


011002 


004544 




(5) 


011004 


005642 




3031 


011006 


004737 


016716 


3032 


011012 


000464 




3033 


011014 






(4) 


011014 






3034 


011014 






(4) 


011014 


005065 


003500 


3035 


011020 


052737 


000200 


3036 


011026 






(6) 


011026 


105737 


003477 


(9) 


011032 


001005 




3037 


011034 






(6) 


011034 


005265 


003330 


3038 


011040 






(4) 


011040 


016577 


003330 


3039 


011046 






(4) 


011046 






3040 


011046 






(6) 


011046 


023727 


002114 


(9) 


011054 


001024 




(6) 


011056 


023727 


003430 


(9) 


011064 


001020 




3041 


011066 






(6) 


011066 


023727 


003422 


(9) 


011074 


003414 




3042 


011076 






(2) 


011076 


012727 


000017 


(2) 


011102 


000000 




(2) 


011104 


013727 


002116 


(2) 


011110 


000000 




(2) 


011112 


005367 


m772 


(2) 


011116 


001375 


177756 


(2) 


011120 


005367 


(2) 


011124 


001367 




3043 


011126 






(4) 


011126 
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1J: 



LET (R3)* := #-1 
LET R2 := R2 ♦ #2 
ENDDO 



TSTB DINT 
BNE IS 

IFB INTFLG(R5) GT #1 THEN 



LET TSSRE6 := aTSSR(R5) 
ERRDF 15,T00m«STAERH 



JSR PCDROPU 
BR EXCRTN 
ENDIF 



SEQ 0074 

CMP R2,#nSGC 
BEQ 50077$ 
;INIT THE MSG PACKET WITH ALL 1'S 

HOV #-1,(R3> 

.•UPDATE COUNTER. 

ADD «2,R2 
BR 50076$ 

50077$: 
;ARE INTERRUPTS DISABLED. 
;BR IF YES. 

;IF MORE THAN ONE INTERRUPT HAS OCCURED: 

CMPB INTFLG(R 
BLE 50100$ 
.•FREEZE THE CURRENT STATUS REG F 
MOV aTSSR(R5 

;REPORT TOO MANY INTERRUPTS. 

TRAP C$ERDF 
.WORD 15 
.WORD Toom 
.WORD STAERM 

.-DROP THE UNIT 

;RETURN - UNIT HAS BEEN DROPPED. 



LET INTFL6(R5) #0 

BIS «IE.C«Cm>PKT 
IFB ERRREC EQ #0 THEN 



50100$: 

;CLR INTERRUPT FLAG FOR THIS DEV. 

CLR INTFLG(R 

:SET INT ENABLE BIT. 
;IF NOT RETRYING 

TSTB ERRREC 
BNE 50101$ 

LET RECCNT(R5} :- RECCNT(R5) * #1 

INC RECCNT(R 

LET BDATAWT :« RECCNT(R5) .-THEN UPDATE REC COUNT TO WRITE IT ON TA 

MOV 



ENDIF 

IF L$TEST EQ #3 AND CHDWRD EO #WRT THEN 

IF NCNT GT #3500. THEN 
DELAY 15. 



50101$: 



ENDIF 



CHP 
BNE 
CMP 
BNE 

CMP 
BLE 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



RECCNT(R 



L$TEST,# 
50102$ 
CMDWRD.f 
50102$ 

NCNT,#35 
501 0S$ 

#15., (PC 

LS0LY,(P 
0 

-6'PC) 

-22 (PC) 
.-20 



S0103S: 



GLOBAL AREAS 
C2TUVB.P11 



MACYII 30(1046) 
12- JUL -83 09:26 
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SEQ 0075 



3044 
(4) 
3045 
3046 
3047 
(6) 
(9) 
3048 
3049 
(4) 
(5) 
(5) 
(5) 
3050 
3051 
(4) 
3052 



011126 
011126 
011126 

011134 
011134 
011142 
011144 
011150 
011150 
011152 
011154 
011156 
011160 
011164 
011164 
011164 



012775 002314 002456 



032775 000200 002466 
001410 

004737 011552 

104455 
000003 
004273 
005642 

004737 016716 



000207 



ENDIF 
MOV 



«CMDPKT,aTSDB(R5) 



IF #TS.SSR SETIN aTSSR(R5) THEN 



JSR PC.M0VMS6 
ERROF 3,T0ERn,STAERn 



JSR PCDROPU 
ENDIF 



50102$: 

LOAD TSOB UITH CHDPKT ADDRESS 
THIS INITIATES COMMAND EXECUTION. 
IF READY DID NOT DROP THEN: 

BIT 
BEQ 

;MOVE CURRENT MESSAGE PACKET 
; REPORT NO TU80 RESPONSE. 

TRAP 
.WORD 
.WORD 
.WORD 

.-DROP THE UNIT 



fTS.SSR. 
501 04S 
TO COMMON 

C$ERDF 
3 

TOERM 
STAERM 



EXCRTN: RTS 



PC 



: RE TURN. 



50104$: 



GLOBAL AREAS MACYll 30(1046) 
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3054 








3055 








3056 








30r"' 








3058 








3CS9 








3060 








3061 








3062 








3063 


011166 






(6) 


011166 


026527 


00257^ 


(9) 


011174 


001002 




3064 


011176 


000540 




3065 


011200 






(4) 


011200 


000400 




(3) 


011202 






3066 


011202 






(4) 


011202 






3067 


011202 






(4) 


011202 


012737 


177777 


3068 


011210 






(3) 


011210 






3069 


011210 






(3> 


011210 


104422 




3070 


011212 






(6) 


011212 


023727 


003430 


(9) 


011220 


001014 




3071 


011222 






(2) 


011222 


012727 


000012 


(2) 


011226 


000000 




(2) 


011230 


013727 


002116 


(2) 


011234 


000000 




(2) 


011236 


005367 


177772 


(2) 


011242 


001375 




(2) 


011244 


005367 


177756 


(2) 


011250 


001367 




3072 


011252 






(4) 


011252 






3073 


011252 






(6) 


011252 


023727 


003430 


(8) 


011260 


001404 




(6) 


011262 


023727 


003430 


(9) 


011270 


001014 




(6) 


01127? 






3074 


011272 






(2) 


011272 


012727 


000014 


(2) 


011276 


000000 




(2) 


011300 


013727 


002116 


(2) 


011304 


000000 




(2) 


011306 


005367 


1 77772 


(2) 


011312 


001375 




(2) 


011314 


005367 


177756 


(2) 


011320 


001367 




3075 


011322 






(4) 


011322 






5076 


011322 
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SEO 0076 



THIS SUBROUTINE WAITS FOR THE TU80 INERRUPT OR DONE BIT TO SET AND ALLOU 
OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR. 

UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 
LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 

INPUTS: 
OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: DROPU, NOVMSG* RECUD« CHKERR, LOG, CLRERR. 



60UAIT::IF DEVTBL(R5) EQ «NINUSE THEN 



BR 
ELSE 



1$ 



CMP 
BNE 



#-1 



END IF 
LET TIME1 
REPEAT 
BREAK 

IF CMDURD EO #RUD THEN 
DELAY 10. 



50105$: 
50106$: 

;INIT TIME OUT COUNTER. 



BR 



MOV 



DEVTBKR 
50105$ 



50106$ 



#-1,TI«E 



ENDIF 

IF CHDURD EQ #SFF OR CMDURD EQ #SFR THEN 



; REPEAT UNTIL INTERRUPT OCCURES: 
50107$: 

;G0 TO THE SUPER TO ALLOU TTY INPUT. 

TRAP C$BRK 

;IF COmAND WAS REWIND THEN: 

CMP CMDWRD,« 
BNE 50110$ 

;UAIT EXTRA 10 ffSECS EACH LOOP. 

HOV #10., (PC 
.UORD 0 
HOV L$DLV,(P 
.UORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 



50110$: 



CHP 
BEQ 
CMP 
BNE 



CHDyRD,! 

50111$ 

CMDURD,« 

50112$ 



DELAY 12. 



501115 

;ADD DELAY FOR SPACE TAPE NARK COmANDS 



ENDIF 

IF8 DINT EQ #0 THEN 



MOV 
.UORD 

mv 

.UORD 

DEC 

BNE 

DEC 

BNE 



#12.. (PC 
0 

L$DLY,(P 

0 

-6(PC) 
.-4 

-22 (PC) 
.-20 



50112$: 
:IF INTERRUPTS ARE ENABLED. 



GLOBAL 


AREAS 


HACYll 


30(1046) 
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(6) 


011322 


105737 


002212 


(9) 


011326 


001003 




3077 


011330 






(4) 


011330 


016502 


003500 


3078 


011334 






(4) 


011334 


000406 




(3) 


011336 






3079 


011336 






(6) 


011336 


012703 


000200 


(6) 


011342 


005103 




3080 


011344 






(4) 


011344 


017502 


002466 


(6) 


011350 


040302 




3081 


011352 






(4) 


011352 






3082 


011352 






(6) 


011352 


005337 


003446 


3083 


011356 






(4) 


011356 


005702 




(6) 


011360 


001003 




(4) 


011362 


005737 


003446 


(7) 


011366 


001310 




(4) 


011370 






3084 


011370 






(6) 


011370 


005737 


003446 


(9) 


011374 


001022 




3085 


011376 






(4) 


01 1 376 


016577 


003330 


(6) 


011404 


005377 


172006 


3086 


011410 


004737 


011552 


3087 


011414 






(4) 


011414 


104455 




(5) 


011416 


000004 




(5) 


011420 


004505 




(5) 


011422 


005642 




3088 


011424 


004737 


016716 


3089 


011430 






(4) 


011430 


012703 


003500 


3090 


011434 


004737 


011502 


3091 


011440 






(4) 


011440 


000417 




(3) 


011442 






3092 


011442 


004737 


011552 


3093 


011446 


004737 


011636 


3094 


011452 


004737 


012004 


3095 


011456 






(6) 


011456 


105737 


003471 


(9) 


011462 


001006 




3096 


011464 


004737 


014664 


3097 


011470 






(4) 


011470 


012703 


003500 


3098 


011474 


004737 


011502 


3099 


011500 






(4) 


011500 






3100 


011500 






(4) 


011500 







12-JUL-83 09:44 PAGE 48-1 

GLOBAL SUBROUTINES SECTION 



n 6 



SEU 0077 



LET R2 := INTFLG(R5) 
ELSE 

LET R3 :s COMP #TS.SSR 



TSTB DINT 

6NE 50113$ 
; FETCH INTERRUPT OCCURRED FLAG. 

NOV INTFLG(R 

;IF IN BRUTUS NODE: 

BR 50114$ 

50113$: 

;SET UP A NASK FOR THE DONE BIT. 

NOV #TS.SSR, 

CON R3 

LET R2 aTSSR(R5) CLR.BY R3 ;FETCH DONE BIT. 

NOV aTSSR(R5 

BIC R3.R2 

ENDIF 

50114$: 

LET TINE1 := TINE1 - *1 ;UPDATE TINEOUT COUNTER. 

DEC TINE1 

UNTIL R2 NE »0 OR TINE1 EQ »0 .-REPEAT UNTIL INTERRUPT OR READY OCCURES 

TST R2 

6NE 50115$ 

TST TINEI 

BNE 50107$ 

50115$: 

IF TINE1 EQ MO THEN ;IF TINE OUT HAS OCCURRED: 

TST TINE1 

BNE 50116$ 
LET aOATAWT := RECCWTCHS) - #1 ;RE-ADJUST REC COUNT DOWN 

NOV RECCNT(R 

DEr aDATAUT 

JSR PCNOVNSG :NOVE CURRENT NSG PACKET TO CONNON AREA. 

ERRDF 4,N0INTN,STAERN .-REPORT NO INTERRUPT. 

TRAP C$EROF 

.yORD 4 

.WORD NOINTN 

.WORD STAERN 

.-DROP THE UNIT. 



JSft PC.DROPU 
LET R3 := fENDERF 

JSR PC«CLRERR 
ELSE 



JSR PC.NOVNSG 
JSR PCRECUD 
JSR PCCHKERR 
IFB URTYFG EQ #0 THEN 



JSR PC, LOG 

LET R3 fENDERF 

JSR PCCLRERR 
ENDIF 

ENDIF 



; CLEAR ALL ERROR FLAGS 



NOV 



«ENDERF. 



BR 50117$ 

50116$: 

NOVE CURRENT NSG. PACKET TO CONNON AREA 
UPDATE THE RECORD COUNT. 
CHECK FOR STATUS ERRORS. 



;LOG BYTES AND ERRORS. 



TSTB 
BNE 



URTYFG 
50120$ 



NOV #ENDERF . 
.-CLEAR ALL ERROR FLAGS 

50120$: 

50117$: 



N 6 

GLOBAL AREAS MACY11 30(1046) 12-JUL-83 09:44 PAGE 48-2 _ 
C2TUVB.P11 12-JUL-83 09:26 GLOBAL SUBROUTINES SECTION SEQ 0078 

3101 011500 000207 IS: RTS PC .-RETURN IF DONE. 



GLOeAL AREAS 
CZTUVB.PII 



MACY11 30(10«6) 
12-JUL-83 09:26 
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SEfl 0079 



3103 






3104 






3105 






3106 






3107 






3108 






3109 


011502 




(4) 


01 1 502 


012702 


3110 


011506 




(3) 


011506 




3111 


011506 




(A) 


011506 


005022 


3112 


011510 




(3) 


011510 


020203 


(6) 


011512 


001 375 


3113 


01151A 


000207 


31U 






3115 






3116 






3117 






3118 






3119 






3120 






3121 






3122 






3123 


011516 




(A) 


011516 


012737 


3124 


Ol 1 52A 




(3) 


01152A 




3125 


01152A 




(3) 


01 1 52A 


10AA22 


3126 


01 1 526 




(6) 


01 1 526 


005337 


3127 


01 1 532 




(A) 


011532 


032775 


(6) 


0115A0 


001003 


i i \ 

\Hi 


Ail c/ ^ 


005 or 


(7) 


0115A6 


001366 


(A) 


011550 




3128 






3129 


011550 


000207 


3130 






3131 







SUBROUTINE TO CLEAR FLAGS. 
INPUTS: R3 - LWA TO BE CLEARED * 2. 

OUTPUTS: 

REGISTERS: R2 
CALLS: 

CLRERR:: LET R2 := #B6NFL6 
REPEAT 

LET (R2>+ := #0 
UNTIL R2 EQ R3 

RTS PC 



USSR: I 



NOV 



50121$: 



CLR 

CHP 
BNE 



#BGNFLG, 



(R2)* 

R2,R3 
50121$ 



SUBROUTINE TO UAIT UNTIL CURRENT UNIT IS REAi>Y OR UNTIL TIME OUT. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 

!r #-1 



LET TWE1 
REPEAT 
BREAK 

LET TIHE1 TIHE1 - #1 



;INIT TIHEOUT COUNTER. 

HOV #~1 TIME 
;REPEAT UNTIL OEV READY OR TIflEOUT:' 
50122$: 
.•BREAK TO THE SUPERVISOR. 

TRAP C$6RK 
.'UPDATE TIHEOUi COUNftN. 

DEC TIHE1 

UNTIL fTS.SSR SETIN aTSSR(R5) OR TINE1 EQ «0 

BIT 
BNE 
TST 



BNE 



RTS PC 



50123$: 

.•REPEAT UNTIL DEV READY OR TIMEOUT. 
.•RETURN. 



fTS.SSR, 
50123$ 
TIME1 
50122$ 



GLOBAL AREAS HACYll 30(10^6) 



CZTUVB. 


Pll 12-JUL-83 


09:26 




3133 










31 3A 










3135 










3136 










3137 










3138 










3139 










3140 










3U1 


U 1 1 jjC 








(A) 


011S5? 




002466 


003464 


3H2 


01 1 ^/>0 

V 1 1 JQv 








(4) 


M 1 SAO 


01570? 


0C3464 




(6) 




0^?707 


177761 




3U3 


U 1 1 w 








(A) 


niis7n 


nio?57 


003460 




(7) 


U 1 tjiH 




003460 




3UA 


nil A<V) 








(4) 


ni 1 Ann 


U 1 \iJ\Jj 


002506 




3145 


ni 1 AOA 








(4) 


ni 1 f^{\L 


UU3UUC 






3146 


ni 1 AnA 








(4) 


ni lAnA 








(6) 


ni 1 AOfs 


0?0??7 


000016 




(9) 


niiAi7 


001 ^OS 






3147 










(4) 


01161^ 


vie JVC 


002340 




3148 


01 1 i%p6 

V 1 ■ UC V 








(6) 


011620 


062702 


MAM AM'^ 

000002 




3149 


011624 








(4) 


011624 


000770 






(3) 


011626 








3150 


011626 








(4) 


011626 


013765 


002346 


003510 


3151 


011634 


000207 







12-JUL-83 09:44 PAGE 50 

GLOBAL SUBROUTINES SECTION 



C 7 
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SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
TO UPDATE THE CURRENT TERMINATION CLASS CODE. 
INPUTS: 
OUTPUTS: 

REGISTERS: R2. R3. 

CALLS: 

MOVMSG:: LET TSSREG :- aTSSR(R5) .-FREEZE THE STATUS REG CONTENTS 

MOV aTSSR(R5 

LET R2 TSSREG CLR.BY #TSC.TCC .'EXTRACT THE TERMINATION CLASS CODE, 



LET CTCC := R2 SHIFT -1 

LET R3 :- MSGPKA(R5) 

LET R2 :* *0 

WHILE R2 NE «MS6CNT DO 

LET MSGPKT(R2) :- (R3)^ 
LET R2 := R2 ♦ #2 
ENDDO 



;AND SAVE IT 



MOV 

BIC 

MOV 
ASP 



ADR OF THIS DEVICE'S MSG. 

MOV 

CLR COUNTER. 

CLR 

WHILE THERE ARE MORE LOCATIONS: 
501 24S: 

CMP 
BEQ 

;MOVE MSG TO COMMON AREA. 

MOV 

.•UPDATE COUNTER. 

ADD 
BR 



S0125S: 

LET E0TFLG(R5) := HSGPKT+MS.XSO .-MOVE XSTATO TO EOT FLAG. 

MOV 

RTS PC 



TSSREG. R 
#TSC.TCC 

R2.CTCC 
CTCC 

MSGPKA(R 
R2 

R2.«MSGC 
50125$ 

CR3)*,MS 

4r2.R2 

50124$ 

KSGPKT+M 
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31 JH 






3133 






31 56 






31 Jf 






31 >6 






3 1 jy 


ni 1 A7A 

U 1 1 030 




\o) 


M 1 ATA 

U1 1030 


inQ777 

1U3»3r 


IT > 


ni 1 AA? 


nnins7 


3 lOU 


ni 1 AAA 






ni 1 AAA 


nnsTAS 

Uv?30? 


3101 


f11 1 ASA 


\0I 


m 1 ASfi 


n7?777 




ni 1 ASA 
U 1 I030 


nni nAA 

vv 1 V*tO 




All AAA 
V 1 lOOv 


n7?777 
v?c r 3f 


\y/ 


ni 1AAA 
U 1 lOOO 


nni AA? 

Uv 1 HHc 




ni 1 A7A 
w 1 lOr U 






01 1A7n 
U 1 lOr V 


ins?77 


3 103 


ni 1 A7A 
U 1 lO' *• 




10/ 


rtl 1A7A 
U 1 lOf 


n?77?7 


IT/ 


ni 1 703 

U1 1 fvc 


nninn7 

UU 1 UU3 


3 I0*» 


m 1 7nA 






ni 1 7nA 


nnsoAS 


J 1 03 


nii7in 






ni 1 7in 


JWH y 1 


r7i 

V J/ 


nil 71? 

V 1 1 f 1 C 




71 AA 
^ 'OO 


nil 71 3 




KOI 


nil 71? 


n7?777 




ni 1 7?n 


nni A?s 


71A7 
3 lOf 


ni 1 7?? 

U1 1 'cc 




\Of 


ni 1 7?? 


n7?777 


It/ 


ni 1 77n 


nninn7 

Uv 1 vvr 


71 AB 

3 lOo 


ni 1 77? 




\0f 


ni 1 77? 

U 1 1 r 3c 


n7?777 
U3c f Jf 


It/ 


ni 1 7An 


nni nn? 

vv 1 vvc 


71^0 
3 IOt 


ni 1 7A? 




\Of 


ni 1 7A? 

U 1 1 r He 


nns?AS 

vv?c03 


71 7rt 

3 1 f U 


ni 1 7AA 
U 1 1 r *tO 




\*»/ 


ni 1 7AA 




7171 
3 1 f 1 


ni 1 7AA 
U 1 1 r HO 




KHJ 


ni 1 7AA 
U 1 1 r HO 


onoAi? 

VvVH 1 C 


/71 
\ 0/ 


ni 1 7sn 

U 1 1 r 3v 




717? 


ni 1 7sn 

V I 1 r 3v 




/A) 
VO/ 


ni 1 7sn 

V 1 I r 3v 


07?7X7 




ni 1 7SA 

V 1 1 ' 30 


001 ^OA 

vv 1 two 


7177 


ni 1 7An 

V 1 1 ' Ov 




VO/ 


nii^AA 

V 1 I • Ov 


07?7AS 


VT/ 


ni 1 7AA 
V 1 1 ' uO 


001 00? 
Uv 1 l/vc 


71 7A 


01 1 770 

V 1 1 r r V 




(6) 


01 1 770 


00S36S 


3175 


011774 




(4) 


011774 




3176 


011774 




(A) 


011774 




3177 


011774 




U) 


011774 
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SEQ 0081 



003473 
003330 

000001 003460 
100000 002352 

003473 

003430 102010 
003330 



004000 003430 

000400 003430 

000400 003434 
003330 



SUBROUTINE TO ADJUST THE RECORD COUNT. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



RECUD:: IFB RECL06 EQ #0 THEN 



000400 003434 
000002 003510 
003330 



;IF RECORD HAS NOT BEEN LOGGED: 

TSTB RECLOG 

BNE 50126$ 

LET RECCNT(R5) :* RECCNT(R5) - #1 

DEC RECCNT(R 

IF #BITO NOTSETIN CTCC AND *X2.0PM SETIN MS6P»cr*HS.XS2 THEN ;IF TAPE 

BIT #8IT0,CT 

BNE 501 27S 

BIT «X2.0Pn« 

6EQ 50127$ 

LET RECLOG :B- RECLOG ♦ #1 :SET RECORD LOGGED, 

INCB RECLOG 
IF CMDURD EQ #RUD THEN : IF THIS IS A REWIND CMD: 

CHP 



LET RECCNT(R5) #0 
ELSE 



.•CLEAR RECORD COUNT, 



BNE 
CLR 
BR 



IF «BRF.C SETIN CMDURD THEN 



CMDyRD,# 
50130$ 

RECCNT(R 

50:31$ 

50130$: 

;IF BRF USED, UPDATE RECORD CGUN 
BIT fBRF.CC 
BEQ 50132$ 
IF #nOD.C0 NOTSETIN CMDURD THEN ;IF A FORWARD CK): 

BIT #noD.co, 

BNE 50133$ 

IF «MOD.CO NOTSETIN PCMDUD THEN ;IF PREV CPID WAS A FWD ALSO: 

BIT #raD.CO, 
BNE 50134$ 

LET RECCNT(R5) :- RECCNT(R5) ^ JTI ;INCREP1ENT RECORD COUNT. 

INC RECCNT(R 

ENDIF 

50134$: 

ELSE ;IF REVERSE CMD: 

BR 50135$ 

50133$: 

IF IMOD.CO SETIN PCHDWD THEN :IF PREVIOUS CMD WAS A REV ALSO: 

BIT «nOD.C0, 
BEQ 50136$ 

IF «XO.BOT NOTSETIN E0TFLG(R5) THEN ;WHEN NOT AT BCT THEN 

BIT «XO.BOT, 
BNE 50137$ 

LET RECCNT(R5) := RECCNT(R5) - #1 .'DECREMENT RECORD COUNT 

DEC RECCNT(R 

50,37S= 
501J6«= 
50135*= 
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SEQ 0082 



3178 011774 
(4) 011774 

3179 011774 
(4) 011774 

3180 011774 
(4) 011774 

3181 011774 

(4) 011774 016577 003330 171414 

3182 012002 
(4) 012002 

3183 012002 000207 



ENDIF 
END IF 
ENDIF 

LET aOATAWT 
ENDIF 

RTS PC 



:s RECCNT(R5) 



;RETURN. 



50132$ 
501 31S 
50127$ 

50126$: 



mv 



RECCNT(R 
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Tin? 






J too 


















J 1 ▼ 1 












J 1 ▼ J 






J 1 T*t 








012004 






012004 


026527 


(9) 


012012 


001003 


J 1 Tw 


012014 


000137 


'^197 


012020 




\ •# / 


01 2020 


000400 




012022 




J 1 TO 


01 2022 




(4) 


01 2022 




^199 


01 2022 

V ■ CVCC 




(6) 


01 2022 

V > CVCC 


032737 

WC t J* 


(9) 


01 2030 

V • cv^v 


001441 


3200 


012032 




(6) 


012032 


023727 


'9) 


0120A0 


001405 


3201 


0120A2 




(6) 


0120A2 


105737 


(9) 


012046 


001002 


3202 


012050 

V 1 c v^v 


005265 


3203 


012054 

V ■ c 






012054 

V I c 




3204 


012054 

V ■ c V^~ 




It.) 


012054 




3P05 


01P054 

vie V^~ 




(6) 


012054 

V ' C V^~ 


032737 


(8) 


012062 

V 1 c wc 


001004 

VV 1 




012064 


032737 




01 2072 

V ■ C V' C 


001412 

V V 1 ~ ■ c 


(6) 


01 2074 

V • CV' ~ 




3206 


01 2074 

V < c v» ^ 




(6) 


01 2074 

V • cv* ~ 


032737 


(9) 


012102 

V ■ C 1 vc 


001003 

VV ■ 


3207 


012104 

V I C 1 v^ 




(4) 


012104 

V I C I v^ 


012702 

V ■ b • vc 


3208 


012110 

V ■ C 1 IV 






012110 

V ■ C ■ ■ V 


000402 

WVV~ VC 


(3) 


012112 

V ■ C 1 1 c 




3209 


012112 

V 1 C 1 ■ c 






012112 

V ■ C 1 ■ c 


012702 

VIC' vc 


3210 


012116 




(4) 


012116 




3211 


012116 




(4) 


012116 


000402 


(3) 


012120 




3212 


012120 




(4) 


012120 


013702 
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SEO 0083 



THIS IS THE ERROR CHECK SUBROUTINE. AFTER INTERRUPT THIS 
SUBROUTINE IS CALLED TO CHECK THE TU80 STATUS. 

IF SPECIAL COND IS SET THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 

IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BMCR« 

THEN AN ERROR RFC IS REPORTED, 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4. 

CALLS: TCC0-TCC7. 



CHKERR::IF DEVTBL(R5) EQ #NINUSE THEN 



JMP 
ELSE 



IS 



ENDIF 

IF #TS.SC SETIN TSSREG THEN 
IF CTCC NE #2 THEN 
IFB ERRREr EO #0 THEN 



50140$: 



CMP 
BNE 



BR 



DEVTBL(R 
501 40$ 



50141$ 



INC 
ENDIF 

ENDIF 



SCCNT(R5) 



50141$: 

:IF SPECIAL COND STATUS IS SET THEN: 

BIT #TS.SC,T 
BEQ 50142$ 

;IF TCC IS NOT 2 THEN: 

CMP CTCC,#2 
BEQ 501 4^ 
;IF r^OT IN ERROR RECOVERY: 

TSTB ERRREC 
BNE 50144$ 

;INC SC COUNTER. 

50144$: 



50143$: 

IF #TS.NXM SETIN TSSREG OR #TS.UPE SETIN TSSREG THEN ;UHEN NON-EXISTA 

BIT #TS.NXM, 
BNE 50145$ 
BIT fTS.UPE, 
BEQ 50146$ 

50145$: 

IF fXZ.OPM NOTSETIN MSGPKT«MS.XS2 THEN ;AND TAPE NOT MO 

BIT #X2.0PM, 



LET R2 i- #5 
ELSE 

LET R2 :a #4 
ENDIF 
ELSE 

LET R2 := CTCC 



:SET TCCS INDEX 



BNE 
MOV 
BR 

50147$: 

.-TAPE MOVED, SET TCC4 INDEX 

MOV 



50150$: 



50146$: 

;SET DETECTED TCC INDEX 



BR 



MOV 



50147$ 
#5.R2 
50150$ 

#4,R2 

50151$ 
CTCC,R2 
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jC I*» 






V r # 


ni719Z> 


OOA^OP 

UUO JUc 


jC I J 


V/ 1 c I CO 


00^1 77P 

UV/H lie 


jC • o 


V 1 c 1 






nipi^p 


000Z>^0 




U 1 C 1 J*» 




^917 
JC 1 r 


U 1 c 1 ^ 




f A) 
\o/ 


ni PI 

CI j*» 


0V7^7 


\ ▼/ 


nipi^p 

U 1 C I He 


001 ^P^ 

wU 1 HeH 


^71 ft 


u 1 c I 








00S7^7 




01 PI so 


OOI^PI 

WW 1 He 1 


X910 


01P1SP 




\Of 


01P1SP 

VIC 1 jC 


10S7^7 
tyjjf Jf 


\0' 


01 PISA 
U 1 c 1 jO 


001Z>0T 
WW 1 HMj 




01 P1AO 


10S7^7 

l\ljr Jf 




01P1AA 

U 1 C 1 OH 


001^1^ 
Uw 1 H 1 J 


(A) 


01P1AA 
V 1 c 1 OO 




jCCv 






^9P1 


w 1 C 1 DO 




\ w # 


01P16A 


105737 

1 V^ r jr 


(9) 


012172 


001010 

VV 1 V ■ V 




012174 




(6) 


012174 


005265 

VV ^fcW^ 


3223 


012200 




(A) 


01 2200 


104456 


(5) 


012202 


000015 

WW 1 ^ 






004340 

V V~ W 


(5) 


012206 


005642 




01P210 

vice I w 


004737 

VW^ r J r 


3??5 


012P14 

Vice 1 ~ 






w 1 cc ■ 






012214 




(it) 


012214 

vice 1 ~ 




3227 


012214 






012214 




3228 


012214 

Vice 1 "t 






012214 

vice I ~ 




3229 


012214 

Vice 1 "V 






012214 

Vice 1 ~ 




3? 30 


V 1 cc 1 




\ w 


012214 

vice 1 "t 


105737 


(9) 


012220 


001403 


3231 


012222 




(4) 


012222 


013737 


3232 


012230 




(4) 


012239 




3233 


012230 


000207 


3234 
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SEQ 0064 



ENDIF 

LET R2 := R2 SHIFT 1 .-CURRENT TCC X 2. 



50151$: 



012232 



004000 003430 

002344 

003523 
003524 



003527 
003310 

013360 



003475 

003432 002314 



ASL R2 

JSR PC«aTCCRA(R2} ;G0 TO THE TCC HANDLING SUBROUTINE. 

^""^^ BR 50152$ 

50142$: 

IF #6RF.C SETIN CMDWRD THEN ;IF BRF IS USED IN THIS CW> THEN: 

BIT fBRF.CC 
B£Q 50153$ 
IF NSGPKT^MS.RFC NE #0 THEN ;IF THERE IS AN RFC THEN: 

TST HSGPKT+H 
BEQ 50154$ 

IF6 RANDOM EQ #0 ORB VFYFLG NE #0 THEN 

TSTB RANDOM 
BEO 50155$ 
TSTB VFYFLG 
BEO 50156$ 

50155$: 

;IF NOT IN RANDOM OR IF CMD IS W 
IFB IRE EO #0 THEN ;IF RFC ERROR REPORTS ARE ALLOWE 

TSTB IRE 
BNE 50157$ 

LET HRDCNT(R5} HRDCNT(R5) ♦ «1 .'UPDATE HARD ERROR COUNT 

INC HRDCNT(R 

ERRHRD 13.RFCERM.STAERM .-REPORT RFC ERROR 

TRAP CSERHRD 
.WORD 13 
.yORD RFCERM 
.UOPD STAERM 

:G0 DO RAH DUMP 
50157$: 
50156$: 
50154$: 
50153$: 
50152$: 

;IF A READ/yRITE ERROR HAS OCCURRED THEN 

TSTB RUERR 
BEO 50160$ 
.•RESTORE CND PACKET AFTER ERROR RECOV. 

NOV CMDSAV.C 



JSR 
ENDIF 



PCRAMDUn 



1$: 



ENDIF 
ENDIF 
ENDIF 
ENDIF 

IFB RUERR NE #0 THEN 

LET CMDPKT := CMDSAV 
ENDIF 

RTS PC 



.-RETURN. 



50160$: 
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SEQ 0085 



3256 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 



012232 
012234 
012236 
012240 
012242 
012244 
012246 
012250 



012252 
012274 
012312 
012460 
012502 
013200 
013302 
013336 



ADDRESSES OF ICC HANDLING ROUTINES TOR TERKINATICN CLASS CODES 0-7. 

TCCRA: TCCO 
TCC1 
TCC2 
TCC3 
TCC4 
TCC5 
TCC6 
TCC7 
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SEQ 0086 



3247 








3248 








3249 








32S0 








3251 








3272 








3233 








3254 


012252 






(6) 


012252 


005205 


003310 


3e53 


012250 






// \ 


U 12250 


10<»«i50 




O) 


U1220U 


0U00U5 






rtl 33&3 
U12202 


UUhjIh 






0122M 


UU5o42 




3e30 


U12200 


004 rjr 


01 3300 




Qiccrc 


00020 r 




3£30 
















3£OU 
















3£0£ 
























jc03 
















73A7 
























rU 








■Jc r 1 








(4) 


012274 


104455 




(5) 


012276 


000006 




(5) 


012300 


004421 




(5) 


012302 


005642 




3272 


012304 


004737 


013360 


3273 


012310 


000207 





TCCO: 



SUBROUTINE TO HANDLE TERM'NATION CLASS CODE 0, UNDEFINED SPECIAL 

CONDITION ERROR. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



LET HRDCNT(RS) := HRDCNT(R5) ♦ #1 
ERRHRD 5«SCERn,STAERN 



JSR 

RTS PC 



PC«RAMDUN 



.•UPDATE HARD ERROR COUNT. 

INC HRDCNT(R 
.•REPORT SPECIAL CONDITION ERROR. 

TRAP CSERHRD 
.WORD 5 
.yORD SCERM 
.WORD STAERM 

;60 DO RAM DUMP 
.•RETURN. 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1. ATTENTION CONDITION. 

THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

SUCH AS GOING OFFLINE OR COMING ONLINE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2.R4 
CALLS: DROPU 



TCC1:: ERRDF 6.ATTNM.STAERM 



JSR 
RTS 



PC.RANDUM 
PC 



.•REPORT ATTENTION-UNIT OFF LINE. 

TRAP CtERDF 
.WORD 6 
.WORD ATT»M 
.WORD STAERM 

;G0 DO RAM DUMP 
.•RETURN. 
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3275 






3276 






3277 






3278 






3279 






3280 






3281 






3282 






3283 


01231? 




(6) 


012312 


032737 


(9) 


012320 


001404 


(6) 


012322 


105737 


(9) 


012326 


001401 


3284 






3285 


012330 


000452 


3286 


012332 




(4) 


012332 




3287 


012332 




(6) 


012332 


023727 


(9) 


012340 


001011 


3288 


012342 




(6) 


012342 


023727 


(9) 


012350 


001005 


(6) 


012352 


023727 


(9) 


012360 


001001 


3289 


012362 


000435 


3290 


012364 




(4) 


012364 




3291 


012364 




(4) 


012364 




3292 


012364 




(6) 


012364 


032737 


(9) 


012372 


001431 


3293 






3294 


012374 




(6) 


012374 


105737 


(8) 


012400 


001403 


(6) 


012402 


105737 


(9) 


012406 


001423 


(6) 


012410 




3295 






3296 


012410 




(6) 


012410 


105737 


<9) 


012414 


001020 


3297 


012416 


105737 


(6) 


012416 


(9) 


012422 


001403 


3298 


012424 




(6) 


012424 


105237 


3299 


012430 




(4) 


012430 


000402 


<3) 


012432 




3300 


012432 




(6) 


012432 


005265 


3301 


012436 




(4) 


012436 
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SEQ 0087 



TCC2: 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2. TAPE STATUS ALERT. 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT NAY HAVE SIGNIFICANCE 

TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



IF «XO.BOT SETIN NSGPKT^MS.XSO ANDB EXP60T NE #0 THEN 



BIT 
BEQ 
TSTB 
BEQ 



#X0.BOT, 
50161$ 
EXPBOT 
50161S 



BR TC2RTN 
ENDIF 



:IF AT BOT AND BOT IS EXPECTED: 

:RETURN-TCC2 CAUSED BY EXPECTED BOT. 



IF LSTEST EG #3 THEN 
IF PCNDUD EQ «UTM AND CMDURD EQ «SRR THEN 



TC2RTN 



50161$: 



CMP 
BNE 

CMP 
BNE 
CMP 



L$TEST.# 
50162S 

PCMDWD,# 
50163S 
CMDyRD,# 
50163S 



BR 

50,63,= 

50,«»= 

IF #XO.RLS!XO.RLL!XO.THK!XO.LET!XO.BOT SETIN HS6PKT*MS.XS0 THEN ^ 

BIT fXO.RLS! 
BEQ 50164$ 
;IF TCC2 CAUSED BY ANYTHIMG BUT EOT: 
IFB RANDOM EQ #0 ORB VFYFLG NE «0 THEN 

TSTB RANDOM 
BEQ 50165S 
TSTB VFYFLG 
BEQ 50166$ 

50165$: 

:IF NOT IN RANDOM OR IF CMO IS UTV: 
;IF RFC ERROR REPORTS ARE ALLOWED: 
TSTB IRE 
BNE 50167$ 
;IF UE ARE IN ERROR RECOVERY THE 
TSTB ERRREC 
BEQ 50170$ 
;SET UNRECOVERABLE FLAG FOR LO 
INCB UNREC 
;ELSE - IF NOT IN ERROR RECOVERY 
BR 50171$ 

50170$: 

LET SCCNT(R5) := SCCNT<R5) ♦ #1 .-INCREMENT THE SPEC COND COUNT 

INC SCCNT(R5 

50,7,.: 



IFB IRE EQ #0 THEN 

IFB ERRREC NE »0 THEN 

LET UNREC :B- UNREC * #1 
ELSE 
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3302 


012436 




(6) 


012436 


005265 


3303 


012442 




(4) 


012442 


104456 


(5) 


012444 


000007 


(5) 


012446 


004522 


(5) 


012450 


005642 


3304 


012452 


004737 


3305 


012456 




(4) 


012456 




3306 

(4) 


012456 




012456 




3307 


012456 




(4) 


012456 




3308 


012456 


000207 


3309 






3310 






3311 






3312 






3313 






3314 






3315 






3316 






3317 






3318 






3319 






3320 






3321 






3322 


012460 




<4) 


012460 


104455 


(5) 


012462 


000010 


(5) 


012464 


004437 


(5) 


012466 


005642 


3323 


012470 


004737 


3324 


012474 


004737 


3325 


012500 


000207 



K 7 

LET HRDCNT(R5) HRDCNT(R5) ♦ #1 
ERRHRD 7,TSAN,STAERn 



TC2RTN: 



JSR 
ENDIF 

END IF 

ENDIF 

RTS PC 



PCRAMDUN 



SEO 0088 

.•UPDATE HARD ERROR COUNT. 

INC HRDCNT(R 
.•REPORT TAPE STATUS ALERT. 

TRAP CSERHRD 
.WORD 7 
.WORD TSAM 
.WORD STAERM 

;60 DO RAM DUMP 
50167$: 
50166$: 
50164$: 

;RETUftN. 



THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
RMR, OFL, VCK. BOT. ILC. WLE, ILA, AND NBA. 

INPUTS: 
OUTPUTS: 

REGISTERS: R2,R4 
CALLS: DROPU 



rCC3:: ERRDF S.FUNRN.STAERH 



JSR PCRAMDUn 
JSR PC, DROPU 
RTS PC 



.-REPORT FUNCTION REJECT. 



:G0 DO RAM DUKP 
.•DROP THE UNIT. 
.•RETURN. 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
8 

FUNRH 
STAERN 



GLOBAL 


AREAS 


MACV11 


30(10A6 


CZTUVB.P11 12-JUL-83 


09:26 


3327 








3328 








3329 








3330 








3331 








3332 








3333 








333A 








3335 








3336 








3337 








3338 








3339 








33A0 








33A1 








33A2 








33A3 








33AA 








33A5 


012502 






(6) 


012502 


026527 




(9) 


012510 


001003 




5346 


012512 


000137 


rtl ^17<^ 
w 1 1 ■ u 


33A7 


012516 






(A) 


012516 


OOOAOO 




(3) 


012520 






33A8 


012520 






(A) 


012520 






33A9 


012520 






(6) 


012520 


023727 




C9) 


012526 


001137 




(6) 


012530 


105737 


WCC 1 I 


(9) 


01253A 


001 53A 




3350 


012536 






(6) 


012536 


105737 


no^A77 


(9) 


0125A2 


001011 




(6) 


0125AA 


105737 




(9) 


012550 


001 A06 




3351 


012552 






(A) 


012552 


10AA57 




(5) 


01255A 


000011 




(5) 


012556 


00A63A 




(5) 


012560 


0056A2 




3352 


012562 


00A737 


01 3360 


3353 


012566 






(A) 


012566 






335A 


012566 






(6) 


012566 


105737 


007710 


(9) 


012572 


001112 




3355 


01257A 






(6) 


01257A 


105237 


00 3A 77 


3356 


012600 






(6) 


012600 


105237 


00^^77 

wv J*» ' C 


3357 


01260A 






(6) 


01260A 


105737 


003A71 


(9) 


012610 


001102 




3358 
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GLOBAL SUBROUTINES SECTION 



L 7 



SEQ 0089 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE A, RECOVERABLE ERROR. 

TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 

THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. 

2 WRITE-ERROR-RECOVERV ALGORITHMS CAN BE SELECTED: 

THE FIRST ONE, VIA BADTSU SWITCH, DOES DETECT BAD SPOTS ON TAPE. 

IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 

OR 20 BAD SPOTS HAVE BEEN LOGGED. ON REACHING 20 BAD 

SPOTS LOGGED, A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 

UNIT DROPPED. 

THE SECOND ALGORITHM ISSUES THE TU80 WRITE RETRY COMMAND 

UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 

WITH THE NEXT RECORD ON RECOVERY. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2,RA. 

CALLS: RTLE, EXCUTE, 60WAIT, DROPU, WRTY 



TCCA:: IF DEVTBL(R5) EQ fNINUSE THEN 



JMP 
ELSE 



3$ 



CMP 
BNE 



ENDIF 

IF CM0L6 EQ »2 AMDS BADTSU NE »0 THEN 
IFB ERRREC EO «0 ANDB ERCVER NE #0 THEN 
ERRSOFT 9,RERN,STAERM ; 



50172$: 
501 73S: 



BR 



JSR PCRAMDUM 
ENDIF 

IFB IREC EQ #0 THEN 



lET ERRREC :B- ERRREC ♦ #1 
LET WRTYER :B- WRTYER ♦ #1 
IFB WRTYF6 EQ #0 THEN 



;G0 DO RAH DUMP 



50175$: 



CMP 
BNE 
TSTB 
BEQ 

TSTB 
BNE 
TSTB 
BEQ 

TRAP 
.WORD 
.WORD 
.WORD 



TSTB 
BNE 



DEVTBLCR 
50172$ 



50173$ 



CMDLG,«2 
501 7A$ 
BADTSW 
501 7A$ 

ERRREC 
50175$ 
ERCVER 
50175$ 

C$ERS0FT 
9 

RERM 
STAERM 



IREC 
50176$ 



;RETRY FLAG FOR EXCUTE SUBR: DON'T UPDAT 

INCB ERRREC 

.•REWRITE ERROR FLAG FOR WRTY SUBR 

INCB WRTYER 

.'FIRST RETRY ON THIS RECORD: SUBSEQUENT 

TSTB WRTYFG 
BNE 50177$ 

.•RETRIES WITH TCCA ERRORS BY-PASS THIS S 



GLOBAL 


AREAS 


HACY11 


30(10A6) 


12-JUL 
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3359 


012612 








(A) 


012612 


013737 


003A30 


01A16A 


3360 


012620 








(A) 


012620 


013737 


00231A 


01A162 


3361 


012626 








(4) 


012626 


013737 


AA^7<^1 

002322 


01A166 


3362 


01263A 




AA7/ 7C 

003A75 




(6) 


01263A 


4 Af '^77 

105237 




3363 


0126A0 








(6) 


0126A0 


4 APt77 

105237 


003A71 




336A 


0126AA 








(3) 


0126AA 








3365 


0126AA 








(6) 


0126AA 


005265 


AA70CA 

003250 




3366 


012650 








(A) 


012650 


005037 


AA7 M d d 

003A66 




3367 


01265A 








(A) 


01 265 A 


4 /\r A77 

105037 


AA7/ 7 A 

003A70 




3368 


012660 


t\t\t 777 

00A737 


A4 7Z C A 

013650 




3369 


01266A 






17777A 


(6) 


/\4 ^d d i 

0i266A 


A*^^ C^7 

026527 


002536 


(9) 


012672 


AA4 AA1 

001002 






3370 


01267A 


AAAC/ A 

000540 






3371 


012676 








(A) 


012676 


AAA/ A A 

000400 






/ 7\ 

(3) 


A4 '^7AA 

012700 








3372 


A4 ^7AA 

012700 








(4) 


A1 17AA 

0l2r00 








7777 

3373 


A4 ^7AA 

012700 








(A) 


A1 ^7AA 

012700 


4 AC7T7 

105737 


f\t\Tt 7^ 

003A r 2 




(6) 


01270A 


AA4 / A/ 

001404 






(A) 


A4 '^7A^ 

012706 


A17717 

027727 


170606 


000050 


(7) 


A4 ^74 / 

01Z71A 


4 AT7CX 

103753 






(A) 


A4 ^74 ^ 

012716 








337A 










777C 

3375 


A4 ^74 ^ 

012716 








(6) 


A4 ^74 


A177^7 


170576 


000050 


(9) 


A4 ^7^/ 

01272A 


4 AT/ 1C 

103A25 






777^ 

3376 


A4 ^7^^ 

012726 








(7) 


A4 071^ 

012726 


0 Ic^hO 






(6) 


A4 17T1 

012732 


OltrAo 


000001 




/ 7\ 

(3) 


A4 ■^77^ 

012736 


010600 






(A) 


A 4 '^7/ A 

012740 


lOAAlA 






(A) 


A4 0 

012742 


062706 


OOOUOA 




3377 


A4 17/ ^ 

012746 


A/l/ 7T7 


01A37A 




7770 

3378 


A1 *17C*1 

012752 








(6) 


A4 ')7C 1 

012752 


005365 


AAT7TA 

003330 




3379 


012756 


AAy 7T7 

00A73r 


A1 TT^A 

013360 




33o0 


01ef6e 


nnj 777 


A1iL71 A 

Uiorlo 




3381 


OlcfOO 










U ICrOO 






3382 


012772 








(A) 


012772 


012775 


00233A 


002456 


3383 


013000 








(A) 


013000 








338A 


013000 









GLOBAL SUBI 



■1 

SECTION 



H 7 



LET UTYURD 
LET WTYCMO 
LET UTYBRF 



CMOURD 
\- C«DPKT 
:= CMDPKT+CP.CNT 



LET RUERR :B- RUERR ♦ «1 



.-SAVE WRITE COrWAND PACKET 

MOV 

MOV 

MOV 



SEO 0090 

CMDWRD,W 
CMOOKT.W 
CMDPKT+C 



.-LOG SUBR FLAG: COUNT URT ERRORS 

INCB RUERR 

LET URTYFG :B» URTYFG ♦ «1 ;RETRY IN PROGRESS FLAG 

INCB WRTYFG 

REPEAT 

50200S: 

LET WRTYCT(R5) WRTYCr(R5) ♦ #1 ;COUNT GLOBAL WRITE RETR 

INC WRTYCT(R 
LET RETRYC := #0 ; CLEAR # OF RETRIES PER RECORD 

CLR RETRYC 
.-CLEAR # OF REPEATS 

CLRB RPTCNT 

JSR PC«WRTY .-CALL WRITE RETRY 

IF DEVTBL(R5) EQ »NINUSE THEN 



LET RPTCNT :B= #0 



BR 3$ 



ELSE 



ENDIF 

UNTILB WRTYER EQ #0 OR SBTPT HIS «A0. 



5020U: 



C»tf» 
BNE 



BR 



DEVTBL(R 
50201$ 



50202S 



IF aBTPT HIS «A0. THEN 
PRINTS 48TMS62 

JSR PCBORERS 



50202$: 

.REPEAT RETRIES ON SAME 
TSTB WRTYER 
BEQ 50203S 
CMP aBTPT, #A 
BLO 50200$ 

50203$: 

.-UNTIL RECOVERED OR 20 BAD SPOTS 

:WHEN 20 BAD SPOTS LOGGED 

CNP aBTPT.#A 
BLO 50204$ 

.•PRINT BAD TAPE OVERFLOU MSG 

nov 



.-ERASE BAD RECORD 



LET RECCNT(R5) RECCNT(R5) - «1 



JSR PC.RAMDUn 

JSR PC.DROPU 

LET RECCNT(R5) :> #0 



:60 DO RAM DUMP 
.-DROP THE UNIT. 



LET aTSDB(R5) #RWCPK .-REWIND UNIT 
ENDIF 

LET WRTYF6 :B= #0 



MOV 
MOV 
TRAP 
ADD 



DEC 

CLR 
MOV 



«BTMSG2. 
#1.-(SP) 
SP.RO 
C$PNTB 
«A.SP 



RECCNT(R 

RECCNT(R 
«RWCPK.a 



502OA$: 
.-RETRY COMPLETE FLAG 



GLOBAL 


AREAS 


MACY11 


CZTUVB.Pll 12-JUL-83 


t L \ 


U 1 OVAlU 


1 ncnx7 




U 1 jUUh 




VO/ 


U 1 jUUh 






U 1 1 U 






U 1 jU 1 u 


ni X7X7 


7X117 


01X01 A 






01X01 A 




7 TAR 


ni xni A 




\HI 


ni xni A 




IX\ 


ni xn^n 






ni XMn 






nixnsn 


inC9X7 




nixnPA 






nixnpA 

U 1 JVC* 




X701 


nixn^A 






ni xf\jL 


UUUHOH 


tx\ 


nixn7A 






ni xn7A 


00^7X7 




nixnxp 




\0/ 


ni xnx5 


n?X7P7 

\JCjfCf 




ni xn^n 


nnxAi 1 




ni xnA9 






ni xn^? 


vie vc 


\ r # 


01 X04A 






ni xnso 




\o/ 


01X0S0 


0??70? 




ni xnu 


00?403 




01X0S6 






nixn^A 


0S?7X7 




01 XOA^ 






01 XOAA 






01 XOA^ 






nixnA^ 




X7Q0 


01 XOA^ 






OIXOA^ 


00S7X7 




01 xn70 


00101 1 

UU lull 




01X07? 


10S7X7 




01 X07A 


001 ^OA 




01 XI 00 






01X100 






01X10P 


00001 1 




01X10^ 






01X10A 






01X110 






01X11^ 






01X114 






01X11A 






Olll14 




XLOL 

JHUH 


01X190 






01X1P0 




3405 


013126 


105737 


(6) 


013126 


(9) 


013132 


001017 


3406 


013134 




(6) 


013134 


026527 


(9) 


013142 


001002 



30(1046) 12-JUL-83 09:44 PAGE 56-2 
09:26 GLOBAL SUBROUTINES SECTION 



N 7 



LET MISCFG :B= MISCFG ♦ #1 
LET PCMDWD UTYWRD 
ENDIF 
ELSE 

LET UNREC :B- UNREC ♦ #1 
ENDIF 
ELSE 



SEQ 0091 

CLRB URTYFG 
;00 NOT HALT ON THIS CHO FL6 

INCB niSCFG 
.•RESTORE ORIGINAL URT C«D AFTER RECOVERY 



HOV 



50177$: 



50176$: 



BR 



50205$: 



INCB 



BR 



WTYURD.P 

50205$ 
UNREC 

50206$ 



JSR PCRTLE 

IF CNDLG GT #2 THEN 



LET R2 #RRECL SHIFT -1 
IF RETRYC GE R2 THEN 



50174$: 

;CHECK FOR RETRY LIMIT EXCEEDED. 
;IF READ CHD THEN: 

CMP CnDLG.#2 
BLE 50207$ 
;R2-READ RETRY COUNT LIMIT / 2 

NOV #RRECL,R 
ASR R2 
;IF RETRY COUNT IS MORE THAN HAL 
CHP RETRYC. R 
BLT 50210$ 

LET CMDPKT CHDPKT SET.BY #0PP.C ;SET OPPOSITE BIT FOR RE 

BIS #OPP.C,C 

ENDIF 

50210$: 

ENDIF 

50207$: 

IF RETRYC EO #0 ANDB ERCVER NE #0 THEN ;IF THIS IS THE ORIGINAL ERROR 

TST RETRYC 
BNE 50211$ 
TSTB ERCVER 
BEO 50211$ 
.•REPORT RECOVERABLE ERROR 

TRAP C$ERS0FT 
.WORD 9 
.WORD RERH 
.WORD STAERH 

;G0 DO RAM DUMP 

.•PROVIDED OPERATOR HAS ENABLED THE REPOR 

50211$: 
.•UPDATE RETRY COUNT. 

INC RETRYC 

LET CHDPKT := CHDPKT SET.BY «fMOD.Cl ;SET RETRY BIT IN CHD PACKET. 

BIS #noD.ci. 

IFB IREC EQ #0 THEN :IF ERROR RECOVERY ENABLED: 

TSTB IREC 

BNE 50212$ 

IF DEVTBL(R5) EQ /miNUSE THEN 

CNP DEVTBL(R 

BNE 50213$ 



ERRSOFT 9,RERN.STAERn 



JSR PC.RAMDUn 
ENDIF 

LET RETRYC := RETRYC ♦ *1 



GLOBAL AREAS 
CZTUVB.P11 



3A07 
3408 

(4) 

(3) 
3409 

(4) 
5410 

(6) 
3411 

(2) 

(3) 
3412 
3413 
3414 

(4) 

(3) 
3415 

(6) 
3416 

(4) 
3417 

(4) 
3418 



013144 
013146 
013146 
013150 
013150 
013150 
013150 
013150 
013154 
013154 
013156 
013160 
013164 
013170 
013170 
013172 
013172 
013172 
013176 
013176 
013176 
013176 
013176 



HACYll 30(1046) 
12-JUL-83 09:26 

000414 

000400 
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GLOBAL SUBROUTINES SECTION 



8 8 



SEQ 0092 



105237 003477 

012602 
012602 

004737 010576 
000137 011166 

000402 



105237 003476 



BR 3S 



ELSE 



000207 



3$: 



END IF 

LET ERRREC :B= ERRREC * «1 
POP R2.R2 



JSR PC.EXCUTE 
JMP GOUAIT 
ELSE 



LET UNREC :B= UNREC * «1 
ENOIF 
ENDIF 
RTS PC 



50213$: 



BR 



50214$ 



50214$: 
:SET ERROR RECOVERY FLAG. 

'HCB ERRREC 
.POP 2 RTN AORS FROM STAIK. 

HOV (SP)*,R2 

nOV (SP)*,R2 
;60 EXECUTE THE RETRY COPVMND. 

;G0 UAIT FOR INTERRUPT ♦ CHECK STATUS. 

;ELSE IF ERROR RECOVERY IS NOT ENABLED: 

BR 50215$ 

50212$: 

;SET UNRECOVERABLE ERROR FLAG. 

INCB b.4REC 



; RE TURN 



50215$: 
50206$: 



GLOBAL 


AREAS 


WACV11 


30(1046 
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J*»CH 




































UUH r ji 


013S1? 

%J 1 JJ 1 c 


TZ90 












00S737 

VVJ f Jf 


Uv J*tOW 






onions 

vv 1 VA/w 






013P1? 








V 1 jC I C 


104457 






ni vii 






\ J M 


013P1<i 


Oi)£634 




\ J M 


01 3P?0 

V 1 JCC\J 


00S6&? 

vv JD*tC 






01 3P?P 


004737 

V v*t f jr 


01 3360 

V 1 JJVV 




013PP6 








01 3??6 








01 3226 






(6) 


01 3226 


005237 


003466 




013232 






(6) 


013232 


105737 


002210 


(9) 


013236 


001016 




5435 


013240 






(6) 


013'40 


105237 


003477 


3436 


013244 










005265 


003330 


3437 


013250 






^ "t / 


013250 


016577 


003330 


343^ 


013256 










01?60? 
V 1 cove 




V J/ 




01PA0P 




3439 






010576 


3440 


01 3266 


000137 


011166 

Will WW 


3441 


013272 

V 1 JC ' C 






^4) 


013272 


000402 




(3) 


013274 






3442 


013274 






(6) 


013274 


105237 


003476 


3443 


013300 






(4) 


013300 






3444 


013300 


000207 




344 5 








3446 
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GLOBAL SUBROUTINES SECTION 



C 8 



SEO 0093 



TCC5: 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND RE-ISSUE THE ORIGINAL COMMAND. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2,R4. 

CALLS: RTLE, EXCUTE, GOUAIT, DROPU. 



JSR PC. RTLE 

IF RETRYC EQ #0 THEN 



ERRSOFT lO.RERM.STAERM 



;CHECK FOR RETRY LIMIT EXCEEDED 
:IF THIS IS THE ORIGINAL ERROR THEN: 



JSR 
FNDir 



PC.RAMDUM 



TST 
6NE 

; REPORT RECOVERABLE ERROR. 

TRAP 
.WORD 
.WORD 
.WORD 

;G0 DO RAM DUMP 



LET RETRYC RETRYC ♦ #1 
IF8 IREC EQ #0 THEN 



50216$: 

; UPDATE RETRY C0UN1ER. 



INC 



;IF ERROR RECOVERY IS ENABLED 

TSTB 
BNE 

;SET ERROR RECOVERY FLAG. 

INCB 

LET RECCNT(R5) := RECCNT(R5) ♦ #1 .'UPDATE REC COUNT 

INC 



LET ERRREC :B- ERRREC * #1 



RETRYC 
50216$ 

CSERSOFT 
10 

RERM 
STAERM 



RETRYC 

IREC 
50217$ 

ERRF<EC 



LET aDATAWT :- RECCNT(R5) 
POP R2.R2 



JSR PCEXCUTE 
jnP GOWAIT 
ELSE 



LET UNREC :B- UNREC ♦ #1 
ENDIF 
RTS PC 



RECCNT(R 
:AND INSERT IT INTO WRT BFR 

NOV RECCNKR 
;POP 2 RTN AORS FROM STACK. 

MOV (SP)*.R2 
MOV (SP)*.R2 
;60 RE-ISSUE THE COMMAND. 
;60 WAIT FOR INTERRUPT ♦ CHECK STATUS. 
.-ELSE IF ERROR RECOVERY IS NOT ENABLED: 

BR 50220$ 

50217$: 

;SET UNncCCVERASLE ERROR FLAG. 

INCB IMfttL 



.•RETURN. 



50220$: 



GLOBAL AREAS HACYll 30(1046) 



CZTUVB.P11 1 


I2-JUL-83 09:26 


























JM J 1 
















































5457 








5458 








5459 


01 3302 






(4) 


013302 


012775 


002334 




013310 


004737 


011516 


5461 


013314 






(4) 


013314 


104455 




(5) 


013316 


000013 




(5) 


013320 


0046S6 




(5) 


013322 


00S642 




3462 


013324 


004737 


013360 


3463 


013330 


004737 


016716 


3464 


0)3334 


000207 
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GLOBAL SUBROUTINES SECTION 



D 8 



SEQ 0094 



SUBROUTINE TO HANDLE TERMINATION CL^'^S CODE 6, UNRECOVERABLE ERROR. 
TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 
IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 
SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
COMMAND ONLY IF DENSITY CHECK IS SET« OTHERWISE THE UNIT WILL BE 
DROPPED FROM THE TEST SEQUENCE. 
INPUTS: 
OUTPUTS: 

REGISTERS: R2 R4 

CALLS: RTLE« WSSR, EXCUTE« GOWAIT, DROPU 



TCC6:: LET aTSDB(R5) :s fRWCPK 

JSR PC«WSSR 

ERRDF 11«URERM,STAERM 



JSR PCRAMDUM 
JSR PC«DROPU 
RTS PC 



.-ISSUE A REWIND COMMAND. 

P10V #RWCPK 9 

.-WAIT FOR SUBSYSTEM READY. 

.•REPORT UNRECOVERABLE ERROR. 

TRAP CSEROF 
.WORD 11 
.WORD URERM 
.WORD STAERM 

;G0 DO RAM DUMP 
;DROP THE UNIT. 
.'RETURN 



GLOBAL AREAS 
CZTUVB.P11 



3466 
3467 
3468 
3469 
3470 
3471 
3472 
3^73 
3474 
3475 
3476 
(4) 
(5) 
(5) 
(5) 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
(6) 
(9) 
3485 
(7) 
(6) 
(3) 
(4) 
(4) 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
(7) 
(6) 
(3) 
(4) 
(4) 
3497 
(4) 
3498 
3499 
3500 
3i01 
3502 
3503 
3504 
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E & 



SEO 0095 



013336 
013336 
013340 
013342 
013344 
013346 
013352 
013356 



013360 
013360 
013364 
013366 
013366 
013372 
013376 
013400 
013402 
013406 
013414 
013422 
013426 
013434 
013440 
013446 
013452 
013460 
013466 
013472 
013472 
013476 
013502 
013504 
013506 
013512 
013512 



104455 
000014 
004457 
005642 

004737 013360 
004737 016716 
0C0207 



105737 
001452 

012746 
012746 
010600 
104415 
062706 
012737 
012737 
004737 
012737 
004737 
012737 
004737 
012737 
012737 
004737 

012746 
012746 
010600 
104415 
062706 



002214 



005310 
000001 



000004 
000010 
000020 
015164 
000040 
015164 
000060 
015164 
000020 
000100 
015164 

005464 
000001 



000004 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1. FATAL SUBSYSTEM 

ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 

COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 

REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 

ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2. R4 

CALLS: 



TCC7:: ERRDF 12,FATSM.STAERM 



JSR PCRAMDUM 
JSR PCDROPU 
RTS PC 



RAMDUM::IFB RAMURT NE #0 THEN 



PRINTX #RAMFHR 



003406 
003342 

003342 

003342 

003406 
003342 



MOV 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
MOV 
JSR 

PRINTX 



END IF 



«8.,RAMSIZ 

«20,RAMHLD 

PC.RAMER 

#40,RAMHLO 

PC.RAMER 

#60,RAIIHLD 

PC.RAMER 

#16.,RAMSI2 

flOO^RAMNLD 

PCRAMER 

mMLIN 



.•REPORT FATAL SUBSYSTEM ERROR. 

TRAP 
.WORD 
.WORD 
.WORD 

;G0 DO RAM DUMP 
.-DROP THE UNIT. 
; RE TURN. 



TSTB 
BEQ 

MOV 

MOV 

MOV 

TRAP 

ADD 

;RAM FIELD IS 8 BYTES LONG 

; FIELD STARTS AT 20 OCTAL (10 HEX) 

.-READ AMD PRINT THEM 

; FIELD STARTS AT 40 OCTAL (30 H€X) 

;READ AND PRINT THEM 

; FIELD STARTS AT 60 OCTAL (30 HEX) 

;READ AND PRINT THEM 

;RAN FIELD IS SIXTEEN BYTES LONG 

;FIELD STARTS AT 100 OCTAL (40 HEX) 

;REA0 AND PRINT THEM 

MOV 

MOV 

MOV 

TRAP 

ADD 



50221$: 



CSERDF 
12 

FATSM 
STAERM 



RAMURT 
50221$ 

fRAMFHR, 

#1.-(SP> 

SP,RO 

C$PNT): 

#4,SP 



«RAMLIN. 

#1.-(SP) 

SP,RO 

C$PNTX 

#4.SP 



SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED. PRINTS ERROR MESSAGE 
IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

INPUTS: 
OUTPUTS: 

REGISTERS: R2, R4. 



GLOBAL 


AREAS 


NACYll 


CZTUVB.Pll 12-JUL-83 
















U 1 1 c 




yOf 


U 1 J J 1 c 




rot 


U 1 J J 10 


rtAiniP 
UU lU 1 c 
















U 1 JJCC 


00001'^ 

wwww 1 J 










U 1 jjCO 


WW jO**c 




w 1 jJjV 


nOA7'^7 
Uv** » J » 


J J 1 u 




nftA7'^7 

Ww*t ' Ji 


J J 1 1 








U 1 J JHU 


01760'' 

w 1 CWi 


3 J 1 C 


w 1 JJHC 


000^41 




W 1 J^HH 




\"» / 






J J It 










1059^7 












(\pX7P7 

vCJf C ' 


(9) 


013556 


001020 




01 3560 






013560 


023727 




013566 


001013 


?517 


013570 






01^570 

W 1 -J J* w 


105237 


3518 


013574 




^•t / 


01 ^574 






01 3576 


000016 




01^600 


004374 




01^60? 












01 V^IO 


004737 




01 V^14 






01 V^14 


012602 
w 1 cove 




V 1 1 u 






013616 




3523 


013616 






U 1 JO 1 o 


000413 

WWW"* 1 J 








JJC* 










023727 






001007 




013630 






013630 


105237 


3S?6 


013634 






013634 


104456 




013636 


000016 

WWWW ■ \J 


(5) 


013640 


004374 


(5) 


013642 


005642 


3527 


013644 




(2) 


013644 


012602 


3528 


013646 




(4) 


013646 




3529 


013646 
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003436 
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F 8 



013360 
016716 



003475 

003436 000002 
003466 000020 
003476 



013360 
016716 



003466 000020 
003476 



CALLS: DROPU 
RILE:: IF CMDLG EQ #0 THEN 

ERRDF 11,URERM,STAERM 



JSR PC.RAMDUn 
JSR PC, DROPU 
POP R2 

BR RTLRTN 
ENDIF 

LET RWERR :B- RWERR * #1 
IF cnOLG EQ #2 THEN 

IF RETRVC EQ #WRECL THEN 

LET UNREC :S- UNREC * #1 
ERRDF H,RLEXn,STAERn 



JSR PC.RAMDUn 
JSR PC, DROPU 
POP R2 

ENDIF 
ELSE 

IF RETRVC EQ fRRECL THEN 

LET UNREC :B- UNREC * #1 
ERRHRD 14,RLEXM,STAERn 



POP R2 
ENDIF 
ENDIF 



SEQ 0096 



;IF CMD IS NOT A READ OR WRITE THEN: 



TST 
BNE 

.•REPORT UNRECOVERABLE ERROR. 

TRAP 
.WORD 
.WORD 
.WORD 

;G0 DO RAM DUMP 
;DROP THE UNIT. 



:AND RETURN. 



nov 



CMDLG 
50222$ 

CSERDF 
11 

URFRM 
STAERn 



(SP)*.R2 



50222$: 
;SET READ/WRITE ERROR FLAG. 

INCB 

;IF CMD IS A URT OR UTM: 

CMP 
6NF 



RWERR 



;IF RETRY COUNT HAS REACHED LIMIT: 



CMDLG, #2 
50223$ 



CMP 
BNE 

;SET UNRECOVERABLE FLAG 

INCB 

.'REPORT RETRY LIMIT EXCEEDED. 

TRAP 
.WORD 
.WORD 
.WORD 

;G0 DO RAM DUMP 
;DROP THE UNIT. 



MOV 



50224$: 
:ELSE - CMD IS A READ: 



BR 



RETRYC,# 
50224$ 

UiAEC 

C$ERDF 
14 

RLEXM 
STAERM 



(SP)«.R2 



50225$ 



50223$: 

;IF RETRY COUNT HAS REACHED LIMIT: 

CMP RETRYC,# 

BNE 50226$ 

;SET UNRECOVERABLE FLAG 

INCB UNREC 
.•REPORT RECOVERABLE ERROR. 

TRAP C$ERHRD 

.WORD 14 

.WORD RLEXM 

.WORD STAERM 

NOV (SP)«,R2 



50226$: 



GLOBAL AREAS 
CZTUV8.P11 



HACV11 30(1046) 
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(4) 
3530 



013646 
015646 



000207 
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RTLRTN: RTS PC 



G 8 



SEQ 0097 



.■RETURN 



5022SS: 



GLOBAL 


AREAS 


MACY11 


30(1046) 


C2TUVB.P11 12-JUL-83 09:26 


3532 








3533 








353A 








3535 








3536 








3537 








3538 








3539 








3540 








3541 








3542 








3543 








3544 








3545 








3546 








3547 








3548 


013650 






(6) 


013650 


026527 


002536 


(9) 


013656 


001540 




3549 


013660 






3550 


013660 






(3) 


013660 






3551 


013660 






3552 


013660 






(3) 


013660 






3553 


013660 


004737 


014374 


3554 


013664 






(4) 


013664 


105037 


003472 


3555 


013670 


004737 


014550 


3556 


013674 






(6) 


013674 


026527 


002536 


(9) 


013702 


001004 




3557 


013704 






(4) 


013704 


112737 


000003 


3558 


013712 






(4) 


013712 


000400 




(3) 


013714 






3559 


013714 






(4) 


013714 






3560 


013714 






(6) 


013714 


105237 


003470 


3561 


013720 






(4) 


013720 


123727 


003470 


(6) 


013726 


001403 




(4) 


013730 


105737 


003472 


(7) 


013734 


001751 




(4) 


013736 






3562 


013736 






(3) 


013736 






3563 


013736 






(6) 


013736 


005237 


003466 


3564 


013742 




002536 


(6) 


013742 


026527 


(9) 


013750 


001002 




3565 


013752 


000502 




3566 


013754 
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H 8 



SEO 0098 



SUBR TO REWRITE A BAD. BUT RECOVERABLE WRITTEN RECORD. 

REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 

If ALL 4 REPEATS GOOD. RECORD IS RECOVERED 

AND A RECOVERABLE WRITE ERROR IS LOGGED. 

IF ANY OF 4 REPEATS BAD. ERASE BAD RECORD. LOG SUSPECTED 

BAD SPOT. RETRY AGAIN. RETRY 4 TIHES, UP TO 4 REPEATS EACH. 

IF RECORD NOT GOOD AFTER 4 RETRIES. ERASE IT. EXIT WITH 

ERROR FLAG WRTYER SET. PRINTING RETRY FAILED. 

THIS ALL SCHEME IS REENTERED 20 TIMES MAX. IE 20 BAD 

SPOTS MAX ARE ALLOWED. 



INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 



R3.R4 

BORERS. REWRT 



WRTY:: IF 0EVTBL(R5) NE «NINUSE THEN 



BEGIN RETRY 
REPEAT 

BEGIN REPEAT 
REPEAT 

JSR PC. BORERS 
LET WRTYER #0 

JSR PC REWRT 

IF 0EvfBL(R5) EO fNINUSE THEN 



;IF DRIVE NOT DROPPED 
CMP 
BEQ 



50231 S: 



DEVTBL(R 
50227$ 



50233$: 

.•BACKSPACE/ERASE ONE RECORD 
.'CLEAR WRITE RETRY ERROR 

CLRB WRTYER 
.•REWRITE RECORD ON SAME SPOT 



LET RPTCNT :B= *3 
ELSE 

ENOIF 

LET RPTCNT :8s RPTCNT ♦ #1 
UNTILB RPTCNT EO #4 ORB WRTYER NE 



END REPEAT 

LET RETRYC := RETRYC ♦ #1 

IF DEVTBL(R5) EQ «N1NUSE THEN 



50234$: 



CMP 
BNE 

MOVB 

BR 



DEVTBL(R 
50234$ 

#3.RPTCN 

50235$ 



#0 



50235$: 
.•COUNT REPEATS 

INCB RPTCNT 
.•LIMIT: 4 REPEATS OR REC 
CMPB RPTCNT. # 
BEQ 
TSTB 
BEQ 

50236$: 



50236$ 
WRTYER 
50233$ 



50232$: 
.•COUNT RETRIES 



BR 
ELSE 



3S 



INC 

CMP 
BNE 



RETRYC 

DEVTBL(R 
50237$ 



MACYII 30(1046) 



CZTUVB.Pn 12-JUL-83 09:26 




(4) 


01 3754 


000400 






(3) 


013756 








3567 


013756 








(4) 


01 3756 








3568 


013756 








(6) 


013756 


105737 


003472 




(9) 


013762 


001001 






3S69 


013764 








(4) 


013764 


000457 






3570 


013766 








(3) 


013766 








3571 


0137y; 




002207 




(6) 


013766 


105737 




(9) 


013772 


001415 






3572 


013774 








(9) 


013774 


005046 






(9) 


013776 


153716 


003470 




(8) 


014002 


013746 


003466 




(7) 


014006 


012746 


014170 




(6) 


014012 


012746 


000003 




(3) 


014016 


010600 






(4) 


014020 


104414 






(4) 


014022 


062706 


000010 




3573 


014026 








(4) 


014026 








3574 


014026 






000001 

www ■ 


(6) 


014026 


023727 


003466 


(9) 


014034 


001021 






3575 


014036 






003520 


(4) 


014036 


016537 


002550 


3576 


014044 




167450 




(4) 


014044 


017704 




(6) 


014050 


062704 


000002 




3577 


014054 








(4) 


014054 


010477 


167440 




3578 


014060 








(6) 


014060 


020427 


000050 




(9) 


014064 


101005 






3579 


014066 








(4) 


014066 


013703 


003520 




3580 


014072 








(6) 


014072 


060304 






3581 


014074 








(4) 


014074 


016514 


003330 




3582 


014100 








(4) 


014100 








3583 


014100 








(4) 


014100 








3584 


014100 




003534 




(6) 


014100 


105237 




3585 


014104 




003475 




(4) 


014104 


105037 




3586 


014110 








(4) 


014110 


105037 


003470 




3587 


014114 








(4) 


014114 
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SEQ 0099 



ENDIF 

IFB URTYER EO «0 THEN 

LEAVE RETRY 
ELSE 

IFB ERCVER NE «0 THEN 



50237$: 
50240$: 



BR 



50240$ 



TSTB WRTYER 
BNE 50241$ 
;EXIT RETRY LOOP IF RECOVERED 
BR 50230$ 

50241$: 



PRINTB «BTMSG1,RETRYC,<B«RPTCNT> 



TSTB 


ERCVER 


BEQ 


50243$ 


:PRINT SUSPECTED BAD SPO 


CLR 


-(SP) 


BISB 


RPTCNT,( 


NOV 


RETRYC- 


NOV 


«6TNSG1 , 


NOV 


#3,-(SP) 


NOV 


SP.RO 


TRAP 


C$PNTB 


ADD 


#10.SP 



ENDIF 

IF RETRYC EQ »1 THEN 

LET BTPT := BTADDR(R5) 
LET R4 :- BBTPT * »2 

LET aSTPT := R4 

IF R4 LOS #40. THEN 

LET R3 :s BTPT 
LET R4 :s R4 ♦ R3 
LET (R4) '.' RECCNT(R5) 
ENDIF 
ENDIF 

LET ERSFLG :Bs ERSFLG * «1 
LET RUERR :B- #0 
LET RPTCNT :B= #0 
ENDIF 



50243$: 

;0N FIRST RETRY, LOGG BAD SPOT 

CMP 
BNE 

;BTPT IS BOTH THE BAD SPOT COUNT 
NOV BTADDR(R 
;AND THE LOGGING INDEX 
NOV 
ADD 



RETRYC .# 
50244$ 



aBTPT,R4 
#2,R4 



NOV 



R4,aBTPT 



CNP R4,«40. 
BHI 50245$ 
STORE FIRST 20 BAD SPOTS 
NOV 



ADO 
NOV 



BTPT,R3 
R3,R4 
RECCNT(R 



50245$: 



50244$: 

ERASE FLAG TO ERASE BAD RECORD 
INCB ERSFLG 

CANCELL "LOG" ERROR FLAG ON FAI 
CLRB RUERR 

CLEAR REPEAT COUNT FOR NEXT RET 
CLRB RPTCNT 

50242$: 
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J 8 



3588 
(3) 
(6) 
3589 
(3) 
3590 
(6) 
(9) 
3591 
(6) 
(9) 
3592 
(7) 
<6) 
(3) 
(4) 
(4) 
3593 
(4) 
3594 
(4) 
3595 
(4) 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 



3609 



3610 



014114 
014114 
014122 
014124 
014124 
014124 
014124 
014130 
014132 
014132 
014136 
014140 
014140 
014144 
014150 
014152 
014154 
014160 
014160 
014160 
014160 
014160 
014160 
014160 



014162 
014164 
014166 



014170 
014176 
014204 
014212 
014220 
014226 
014234 
014242 
014250 
014255 
014262 
014270 
014276 
014304 
014312 
014320 
014325 
014332 
014340 
014346 
014354 



023727 
001256 



105737 
001413 

105737 
001410 

012746 
012746 
010600 
104414 
062706 



000207 



000000 
000000 
000000 



040445 
041505 
020104 
040440 
022440 
051040 
020054 
020101 
052101 

045 
042101 
020105 
046106 
044103 
052040 
047045 

045 
054522 
042514 
041040 
047520 



003466 000004 

003472 
002207 



014325 
000001 



000004 



052523 
020124 
050123 
052106 
030504 
052105 
042045 
042522 
047045 
022516 
052040 
053117 
053517 
047101 
050101 
047045 
051101 
043040 
C.J104 
042101 
027124 



050123 
040502 
052117 
051105 
040445 
054522 
022461 
042520 

000 
041101 
050101 
051105 
020072 
042507 
020505 

000 
052105 
044501 
047117 
051440 
027056 



3S: 



UNTIL RETRVC EQ «4 
END RETRY 

IFB URTVER NE «0 THEN 
IFB ERCVER NE #0 THEN 
PRINTB «6TnSG3 



ENDIF 
ENDIF 
ENDIF 
RTS PC 



LIMIT: 4 RETRIES 

CHP 
BNE 



50230S: 



TSTB 
BEQ 



TSTB 
BEQ 

PRINT RETRY FAILED 
NOV 
NOV 
NOV 
TRAP 
ADD 



50247$ 
50246$ 
50227$ 



SEQ 0100 



RETRrC.# 
50231$ 



WRTVER 
50246$ 

ERCVER 
50247$ 

fBTNSG3, 

#1,-(SP) 

SP,RO 

C$PNrB 

#4,SP 



UTYCNO: .WORD 0 
UTYURD: .WORD 0 
UTYBRF: .WORD 0 



;ST0RA6E FOR WRITE CHD WHILE RETRYING 
.'STORAGE FOR WRITE CND WORD WHILE RETRYING 
.•STORAGE FOR WRITE BPCR WHILE RETRYING 



BTNS61: .ASCIZ /XASUSPECT BAD SPOT AFTER XD1XA RETRY. ZD1ZA REPEATZN/ 



BTNS62: .ASCIZ /ZNZABAD TAPE OVERFLOW: CHANGE TAPElZNZN/ 



BTMSG3: .ASCIZ /ZARETRY FAILED ON BAD SPOT. . .ERASED !ZN/ 



GLOBAL AREAS 
CZTUVB.P11 
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3611 



OK 362 
0U370 



051105 
022AA1 



051501 
000116 
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K 8 



SEO 0101 



042105 



.EVEN 



GLOBAL AREAS 
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SEQ 0102 



3613 










3614 










3615 










3616 










3617 










3618 










3619 










3620 


014374 






003434 


(4) 


014374 


013737 


003430 


3621 


014402 






003430 


(4) 


014402 


012737 


104410 


3622 


014410 








(4) 


014410 


013737 


003430 


002314 


(6) 


014416 


042737 


004000 


002314 


3623 


014424 






003432 


(4) 


014424 


013737 


002314 


3624 


014432 








(4) 


014432 


012737 


000001 


002316 


3625 


014440 








(4) 


014440 


005037 


003436 




3626 


014444 


004737 


007614 




3627 


014450 


004737 


010576 




3628 


014454 


004737 


011166 




3629 


014460 


004737 


017222 




3630 


014464 








(6) 


014464 


105737 


003534 




(9) 


014470 


001426 






3631 


014472 








(4) 


014472 


013737 


003430 


003434 


3632 


014500 






003430 


(4) 


014500 


012737 


100411 


3633 


014506 






002314 


(4) 


014506 


013737 


003430 


3634 


014514 








(4) 


014514 


013737 


002314 


003432 


3635 


014522 


004737 


007614 




3636 


014526 


004737 


010576 




363^ 


014532 


004737 


011166 




3638 


014536 


004737 


017222 




3639 


014542 








(4) 


014542 


105037 


003534 




3640 


014546 








(4) 


014546 








3641 


014546 


000207 






3642 










3643 










3644 


014550 






177774 


C6) 


014550 


026527 


002536 


(9) 


014556 


001441 






3645 


0U560 


013737 






(4) 


014560 


003430 


003434 


3646 


014566 






003430 


(4) 


014566 


013737 


0U164 


3647 


014574 






002314 


(4) 


014574 


013737 


0U162 


3648 


014602 









SU6R TO 6ACSPACE ONE RECORD 

IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 
INPUTS: ERSFLG 1 = DO ERASE 

OUTPUTS: 
REGISTERS: 

CALLS: EXCUTE, GOUAIT, CKHAE 

BORERS:: LET PCNDUD :- CMDURD ;SET COMMAND TO SPACE REV 
LET CMDURD :- «SRR 
LET CMDPKT :- CMDURD CLR.BY «BRF.C 



LET CMDSAV := CMDPKT 

LET CMDPKT+CP.ADL := *1 

LET CM0L6 := *0 

JSR PCCMDAC 

JSR PCEXCUTE 

JSR PC^GOUAIT 

JSR PC, CKHAE 

IFB ERSFLG NE »0 THEN 

LET PCMDUD CMDURD 

LET CMDURD := #ERS 

LET CMDPKT := CMDURD 

LET CMDSAV := CMDPKT 

JSR PCCMDAC 
JSR PC, EXCUTE 
JSR PCGOUAIT 
JSR PC « CKHAE 
LET ERSFLG :B- #0 

ENDIF 



MOV 

MOV 

MOV 
BIC 

MOV 

MOV 

CLR 



:UHEN ERASE FLAG IS SET, DO ERASE 

TSTB 
BEQ 



MOV 
MOV 
MOV 
NOV 



RTS PC 

SUBR TO REURITE A BADLY URITTEN RECORD 



50250$: 



REURT: IF DEVTBL(R5) NE #NINUSE THEN :IF DRIVE NOT DROPPED 

; RESTORE URITE COMMAND PACKET 



LET PCMDUD 
LET CMDURD 
LET CMDPKT 
LET CMDSAV 



= CMDURD 
= UTYURD 
= UTYCMD 
= CMDPKT 



CMP 

BEQ 

MOV 
MOV 
NOV 



CMOUf>D,P 

«SRR,CMD 

CMDWRD,C 
«8RF.C,C 

CMDPKT, C 

«1,CMDPK 

CMDLG 



ERSFLG 
50250$ 

CNDURD,P 

«ERS,CND 

CNDURD,C 

CNOPKT.C 



CLRB ERSFLG 



DEVTBL(R 
50251$ 

CMDURD, P 

UTYURD, C 

UTYCMD, C 



GL08AL 
C2TUVB 

(4) 
36A9 

(A) 
3650 

(4) 
3651 

(A) 
3652 
3653 
3654 

(6) 

(9) 
3655 
3656 
3657 

(4) 
3658 

(4) 
3659 



AREAS MACV11 30(1046) 
.P11 12-JUL-83 09:26 
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H 8 



014602 
014610 
014610 
014616 
014616 
014624 
014624 
014632 
014636 
014642 
014642 
014650 
014652 
014656 
014662 
014662 
014662 
014662 
014662 



013737 


002314 


003432 


013737 


003416 


002316 


013737 


014166 


002322 


012737 
004737 
004737 


000002 
007614 
010576 


003436 


026527 
001404 
004737 
004737 


002536 

011166 
017222 


177774 



000207 



LET CMDPKT*CP.AOL := DATAWT 

LET CHDPKT+CP.CNT := UTVBRF 

LET CMDLG := #2 

JSR PCCnOAC 
JSR PC.EXCUTE 

IF DEVTBL(R5) NE tfNINUSE THEN 

JSR PCGOUAIT 
JSR PCCKHAE 
ENDIF 

END IF 

RTS PC 



;RE-URITE RECORD 



MOV 
MOV 
MOV 
MOV 



CMP 
BEQ 



50252$: 
50251$: 



SEC 0103 
CMDPICT,C 
DATAWT «C 
UTYBRF.C 
#2,CMDLG 



DEVT6L(R 
50252$ 



GLOBAL 


AREAS 


MAC VI 1 


30(10A6) 


C2TUVB.P11 12-JUL-83 


09-26 


















3663 








3664 








3665 








3666 








3667 








3668 


01A66A 






(6) 


01A66A 


105737 


003A7A 


(9) 


01A670 

w • ~w» w 


001126 

W I I fcW 




3669 


01A672 

V 1 ~W> 






(6) 


01A672 

V ■ ~W> b 


105237 


003A7A 


3670 

WW* w 


01A676 






(A) 


01A676 


01370A 


003A36 


3671 

WW* > 


01A702 






(6) 


01A702 


00570A 




(9) 


01A70A 


001520 




3672 


01A706 






(6) 


01A706 


16270A 


000002 


3673 

WW" w 


01A712 






(A) 


01A712 


010502 




(6) 


01A71A 


066A02 

VWW^ Vw 


015150 


(7) 


01A720 


062702 


002560 


367A 


01A72A 






(6) 


01A72A 


063712 


003A26 


3675 


01A730 






(6) 


01A730 


023737 


0023AA 


(9) 


01 A 736 


101002 




3676 


01A7A0 






(6) 


01A7A0 


163712 


0023AA 


3677 


01A7AA 






(A) 


01A7A<. 






3678 

WW • w 


01A7AA 






(A) 


01A7AA 


010203 




(6) 

* W ' 


01A7A6 


062703 


000010 


3679 


01A752 






(A) 


01A752 






(6) 


01A752 


021227 


001 7A 7 


(9) 


01A756 


003A0A 




3680 


01 A 760 






(6) 


01A760 


162712 


001750 


3681 


01A76A 






(6) 


01A76A 


005213 




3682 


01 A 766 






(A) 


01A766 


000771 




(3) 


01A770 






3683 


01A770 






(A) 


01A770 


010302 




(6) 


01A772 


062702 


000010 


368A 


01 A 776 






(A) 


01A776 






(6) 


01A776 


021327 


001 7A7 


(9) 


015002 


003A0A 




3685 


01500A 






(6) 


01500A 


162713 


001750 


3686 


015010 
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N 8 



SEQ 01 OA 



LOG:: 



003A26 



SUBROUTINE TO LOG BYTES READ/WRITTEN. 
ALSO UPDATES READ/WRITE ERROR COUNTERS. 
INPUTS: 
OUTPUTS: 

REGISTERS: R2, R3, RA. 

CALLS: 



IFB ERLOG EQ #0 THEN 



LET ERLOG :B- ERLOG ^ «1 
LET RA :- CMDLG 
IF RA NE #0 THEN 

LET RA :- RA - #2 



IF DATA AND ERRORS HAVE NOT BEEN LOGGED 

TSTB ERLOG 
BNE 50253$ 

SET LOG DONE FLAG. 

INCB ERLOG 
GET CURRENT CMD LOGGING CODE. 

nOV CMOLG^RA 
IF THERE IS A CODE THEN: 

TST RA 
BEQ 5025A$ 
;ADJUST THE CODE FOR TABLE INDEX. 

SUB #2 RA 

LET R2 :- R5 ♦ BINC(RA) ♦ #CNTB6N ;R2 - ADR OF BYTE COUNT LSW. 

NOV R5,R2 
ADD BINC(RA) 
ADD #CNTBGN, 

LET (R2) (R2) * BRFCNT ;ADD BRF TO LSU. 

ADD BRFCNT, ( 

IF MSGPKT^nS.RFC LOS BRFCNT THEN ;IF THE RFC IS LOWER OR THE SAME AS 

CHP HSGPKT+H 
BHI 50255$ 

LET (R2) := (R2) - MSGPKT+HS.RFC .-SUBTRACT RFC FROM EXPECTED BRF. 

SUB HSGPKT+H 



ENDIF 

LET R5 := R2 ♦ #10 
WHILE (R2) GT «999. DO 

LET (R2) := (R2) - #1000. 
LET (R5) :* (R3) ♦ #1 
ENDDO 

LET R2 R3 ♦ #10 
WHILE (R3) GT #999. DO 

LET (R3> := <R3) - #1000. 
LET (R2) := (R2) ♦ #1 



50255$: 

;R3 - ADR OF 2ND WORD. 



50256$: 

.•UPDATE BYTE COUNT 
;2ND WORD. 



50257$: 
;R2 - ADR OF 3RD WORD. 



nov 

ADD 



CMP 
BLE 

SUB 

INC 

BR 



nov 

ADD 



50260$: 



.-UPDATE BYTE COUNT 
;3RD WORD. 



CH^ 
BLE 

SUB 



R2.R3 
#10.R3 



(R2)-#99 
5025H 

#1000., ( 

(R3) 

50256$ 



R3.R2 
#10.R2 



(R3).#99 
50261$ 

#1000.. ( 



GLOBAL 


AREAS 


MACY11 


30(1046 
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m cm n 

(11 3(11(1 


UU3clc 






ni cm 9 
UO(lie 








m cm 0 
(Ii5(lic 


UUUr fx 






m cm/. 






JOOO 


m cni/. 
Ul 3U1h 






VH J 


m cm A 


U 1 UcU3 




lO' 


m cm A. 


UOcrU^ 


nnnm n 
WW 1 u 


jOot 


m cn99 






IL \ 


m Crt55 








m cAoo 
(1 1 jUcc 


nOI 357 
Ue Iccf 


nm 7A7 
UUl 'Hf 


IQ\ 
VTl 


m cn5A 
(1 1 9(lcO 


UUj*»UH 




50tU 


U 1 3UjU 






vol 


m cn7n 
Ul 3UjU 


lOcr le 


nm 7cn 

UUl r 3U 




m cniA 
Ul 5Uj*» 






vol 


m cniA 
Ul 5U5*» 






jOtc 


m cniA 






vhI 


m CAVA 

Ul ?UjO 


UUUr rl 






m CA/ n 
U13UhU 






jOVj 


m cn^n 
Ul 5U<tU 






VOI 


m cn/.r. 
Ul 3UhU 


inC7T7 


nnzA 7c 


VTl 


U 1 3U<tH 


UU l*l*lU 




jOth 


m COAA 
U 1 3VI*tO 






\HI 


VI 1 3V/MO 


ninsn? 

VI 1 VI3VIC 




Vol 


VI 1 3VI7VI 


nAAAn? 

V/OOH vie 


nisiSA 

VI 1 3 1 3a 


V f / 


U 1 3VI 


0A?7n? 
UO£ r Vic 


nft?7?0 
V/V/C 1 cv 


jOT? 


VI 1 3V/OV/ 






VOi 


VI 1 3V/OVI 


10S7^7 

1 v3r Of 


00^^ 

UV3H f O 




ni SHAA 

VI 1 3V/OH 


nni L(\L 




jOtO 


m cnAA 

U 1 3UOO 






vol 


ni cnAA 

U 1 3UOO 


nA?7n? 


nnnni n 

UVIVIVI 1 VI 


jOTf 


ni ^n7? 

Vl 1 Jvf c 






VOI 


ni cn7? 

U 1 jVir £ 


vw3c Ic 




jOVo 


ni cn7A 






VHI 


ni KK7L 


UUl/*lc*t 




tx\ 


VI 1 7Vlr O 








ni ^n7A 

VI 1 3Vlr O 






vol 


ni ^n7A 

V 1 3Vlr O 


I/V/3C Ic 






VI 1 3 IVAI 






vol 


nisinn 

VI 1 3 lUVI 


inc777 


VIV/CC 1 V 


VTI 


V 1 3 1 V/*t 


001 0?0 
vv 1 vcv 




jr Vl 1 


ni^inA 

VI 1 J IVIO 






vol 


nisinA 

VI 1 3 IVIO 


10S7T7 

IVI3r Jr 




V yi 


ni^ii7 

VI 1 3 1 \c 


001 015 
VV 1 w 1 3 




vol 


ni^iiA 

VI 1 3 1 IH 


1057^7 
1 v3 r 3 r 


00??0/ 
vVlccVI r 


V tI 


nisi9n 

U 1 3 1 cU 


IW l*t Ic 






nisi?? 

VI 1 3 1 c c 






vol 


VI 1 J Ice 


ni ^7^A 

VI 1 Jr "to 


vv3*ffow 


r7) 

V f / 


V i i CO 


01?7£/t 

V 1 C r *tO 


OOS157 


vol 


Vl 1 3 1 jC 


01?7£^ 

VI IC' HO 


00000? 


(3) 


015136 


010600 

W 1 WWW 




(A) 


015U0 


104414 




(4) 


015U2 


062706 


000006 


3703 


015H6 






(A) 


015U6 






3704 


015U6 






(4) 


015U6 
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ENDDO 

LET R3 R2 ♦ #10 
WHILE (R2) GT #999. DO 

LET (R2) := (R2) - #1000. 
LET (R3) := (R3) ♦ #1 
ENDDO 



50261 S: 
;R3 - ADR OF 4TH yOAO. 



50262S: 

; UPDATE BYTE COUNT 
;4TH WORD. 



INC 
BR 



nov 

ADD 



CHP 
BLE 

SUB 

INC 

BR 



SEQ 0105 
(R2) 
S0260S 



R2.R3 
#10,R3 



(R2).#99 
5026h 

#1000.. ( 

(R3) 

50262$ 



IFB RUERR NE #0 THEN 



5026iS: 

;IF R/U ERROR, UPDATE ERROR COUNT. 

TSTB RWERR 

6E0 50264$ 
LET R2 :- R5 * EINC(R4) * #WRREC ;R2 = ADR OF COUNTER. 

nOV R5.R2 

ADD EINC(R4) 

ADO #URREC,R 
lis THE ERROR UNRECOVERABLE? 

TSTB UNREC 

BEO 50265$ 
;yES. POINT TO NEXT COUNTER. 

ADD #10, R2 
; UPDATE THE ERROR COUNTER 

INC (R2) 
;ELSE - IF ERROR IS RECOVERABLE: 

BR 50266$ 

50265$: 
;UPDATE THE ERROR COUNTER 

INC (R2} 
;IF ERROR RECOVERY IS ENABLED: 

TSTB IREC 

BNE 50267$ 

IFB DROPED EQ #0 ANDB ERCVER NE fO THEN :IF UNIT HAS NOT BEEN DR 

TSTB DROPED 

BNE 50270$ 

TSTB ERCVER 

BEQ 50270$ 
PRINTB #NURTY1,RETRYC .-PRINT # OF RETRIES TO RECOVER 

NOV RETRYC- 

nOV «NURTY1 , 

HOV #2.-(SP) 

NOV SP.RO 

TRAP C$PNTB 

ADD #6.SP 

ENOIF .PROVIDED PRINT KAS BEEN ENABLED 

50270$: 

50267$: 



IFB UNREC NE #0 THEN 

LET R2 R2 ♦ #10 
LET (R2) (R2) ♦ #1 
ELSE 

LET (R2} :s (R2) ♦ #1 
IFB IREC EQ #0 THEN 



GLOBAL AREAS 
CZTUVB.P11 



HACYll 30(1046) 
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3705 


015146 




(4) 


015146 




3706 


015146 




(A) 


015146 




3707 


015146 




(4) 


015H6 




3708 


015146 




iU) 


015146 




3709 


015146 


000207 


3710 






3711 


015150 


000000 


3712 


015152 


000040 


3713 


015154 


000100 


3714 






3715 


015156 


000000 


3716 


015160 


000020 


3717 


015162 


000040 


3718 






3719 






3720 
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END IF 



C 9 



SEQ 0106 



BINC: 
EINC: 



ENDIF 
ENDIF 
ENDIF 
RTS PC 

INDEXES TO BYTE COUNTERS. 
0 ; WRITE. 

40 .-READ REV. 

100 ;.?EAD FUD. 

INDEXES TO READ/yRITE ERROR COUNTERS. 
0 ;URITE. 
20 :READ REV. 

40 ;READ FUD. 



50266$ 
50264$ 
50254$ 
50253$ 



GLOBAL AREAS HACYH 30(1046) 
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3722 








3723 








3724 








3725 








3726 


015164 


010546 




3727 


015166 


010446 




3728 


015170 


010346 




3729 


015172 


010246 




3730 


015174 


010146 




3731 


015176 


012701 


003346 


3732 


015202 


013702 


003342 


3733 


015206 


013703 


003406 


373A 


015212 


016504 


002456 


3735 


015216 


005204 




3736 


015220 


000240 




3757 


015222 


004737 


011516 


3738 


015226 


110214 




3739 


015230 


004737 


011516 


3740 


015234 


117521 


002456 


3741 


015240 


062702 


000001 


3742 


015244 


077313 




3743 


015246 


013704 


003406 


3744 


015252 


013702 


003342 


3745 


015256 


060204 




3746 


015260 


162704 


000001 


3747 


015264 






(9) 


015264 


010446 




(8) 


015266 


010246 




(7) 


015270 


012746 


005401 


(6) 


015274 


012746 


000003 


(3) 


015300 


010600 




(4) 


015302 


104415 




(4) 


015304 


062706 


000010 


3748 


015310 


012701 


003346 


3749 


015314 


013703 


003406 


3750 


015320 


005004 




3751 


015322 


112104 




3752 


015324 


042704 


177400 


3753 


015330 






(8) 


015330 


010446 




(7) 


015332 


012746 


005452 


(6) 


015336 


012746 


000002 


(3) 


015342 


010600 




(4) 


015344 


104415 




(4) 


015346 


062706 


000006 


3754 


015352 


077316 




3755 


015354 


012601 




3756 


015356 


012602 




3757 


015360 


012603 




3758 


015362 


012604 




3759 


015364 


012605 




3760 


015366 


000207 




3761 








3762 








3763 








3764 
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NER - READ AND DISPLAY SELECTED RAM 

.SBTTL RAMER - READ AND DISPLAY SELECTED RAM 

ROUTINE TO READ THE SELECTED RAM LOCATIONS 

R5.-(SP) 
R4,-(SP) 
R3.-(SP) 
R2,-(SP) 
RI.-(SP) 
fRAMDATA.RI 
RAMHLD.R^ 
RAMSIZ,R3 
TSDB(R5),R4 
R4 



SEO 0107 



RAMER:: 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




INC 


10$: 


NOP 




JSR 




MOVB 




JSR 




MOVB 


20$: 


ADD 




SOB 




MOV 




MOV 




ADD 




SUB 




PRINTX 



30$: 



50$: 



ADDRESS TO SAVE 
BYTE ADDRESS OF 
SET THE SIZE OF 
MOV THE TSDB ADDRESS INTO R4 
ADD 1 TO IT 



THE RAM DATA 
THE FIRST RAM DATA 
THE READ UP 



PC .USSR 
R2.(R4) 
PC, USSR 



:UAIT FOR THE SSR TO SET 
; SELECT NEXT RAM ADDRESS 
;UAIT FOR SSR TO SET 



aTSBA(R5).(R1)^ .-READ THE RAM DATA 



«UR2 
R3J0$ 
RAMSIZ,R4 
RAMHLD,R2 
R2,R4 
#UR4 

#RAMI0P,R2.R4 



.•ADDRESS OF THE NEXT RAM LOCATION 
.•NUMBER OF LOCATIONS COUNTER 
;GET THE RAN SIZE 
;GET THE STARTING RAN ADDRESS 
.•CALCULATE THE END ADDRESS 

^ PRINTOUT 

10 - 17. ETC. 



.•CORRECT VALUE 
.RAM ADDRESS = 



MOV 

MOV 

CLR 

MOVB 

BIC 

PRINTX 



«ramda;a.ri 

RAMSIZ.R3 
R4 

(R1)*-R4 

#177400.R4 

fRANPD.R4 



SOB 
MOV 
MOV 
NOV 
MOV 
MOV 
RTS 



R3.30$ 
(SP)*,R1 
(SP)*.R2 
(SP)*.R3 
(SP)*,R4 
(SP)*.R5 
PC 



MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

ADDRESS OF UHERE RAM DATA IS 

THE SIZE OF THE RAM FIELD READ 

NO EXTRA DATA LEFT OVER 

PICK UP BYTE OF RAN DATA 

GET RID OF SIGN EXTEND 

•X)10 211 111 222 377 000 123 134 ETC. 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

.•LOOP UNTIL ALL PRINTED 



R4.-(SP) 

R2.-(SP) 

#RAMIOP. 

#3,-(SP) 

SP.RO 

C$PNTX 

#10.SP 



R4,-(SP) 

fRAMPD.- 

#2.-(SP) 

SP.RO 

C$PNTX 

#6,SP 



•RETURN 

IF A URITE/VERIFY COMMAND IS ISSUED. CONTROL IS THEN 
TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE. CHECK DATA. 
READ FORUARD. CHECK DATA. THEN CONTINUE TO NEXT COMMAND. 
INPUTS: 
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3765 










3766 










3767 










3768 










3769 


01 5370 




AAV J 4 A 

003410 




(4) 


01 5370 


005037 




3770 


015374 








(4) 


015374 


AAP AV^ 

005037 


AA9^ 4 t 

003414 




3771 


015400 








(6) 


015400 


105737 


003524 




<9) 


015404 


AA4 / VX 

001436 






3772 


C/ AX 








(4) 


A1 C/ Arf 

01 5406 


013737 


AAV/ TA 

003430 


003434 


iff 5 


OlS^lH 








t i \ 


01>*1<» 


AI 

vicfif 


iAAAAl 


003430 


if rk 


01 542c 






003436 


# / \ 


Ai C/ 

01 5*22 


AI 0T*7 

012r5r 


AAAAAA 




A1 c/ Tn 


AAA 717 

vM^fif 


AI CCAA 




3r ro 


U15<»jM 










AI CAT/, 




002530 


177774 




A1 CAA9 


AA1Ai7 
001*1 f 






TTT7 
if ft 


U 1 i*»*»H 










mCAAA 
U 1 ^HHH 


AACn^7 






if to 


Ul 5*»3U 










AI CACA 
UI5H3U 




UU3* 1 •» 




T770 
if fT 


AI CACA 






003434 




AI CACA 


ni T7T7 




iifSM 


ni CAA9 










AI CAiD 


A157'T7 
MlCfif 


IAAAAl 


003430 


'Z7S1 

ifo\ 


AI C/ 7A 






003436 




AI ^L7Q 


013737 


000006 


3782 


015476 


004737 


015504 




3783 


015502 








(4) 


015502 








3784 


015502 








(4) 


015502 








3785 


015502 


000207 
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OUTPUTS: 
REGISTERS: 

CALLS: VFEXC. 
VFYDAT:: LET CHPDAT := #0 
LET STTIH := #0 
IF8 VFYFLG NE #0 THEN 



LET PCHDUD 
LET CMDURD 
LET CHOLR 



-= rNDWRO 
= «RDR 
' #4 



JSR PC VFEXC 

IF OEVTBL(RS) NE MIINUSE THEN 

LET CHPDAT := #0 

LET STTIH := #0 

LET PCMDWD CMDURD 

LET CNDURD #RDF 

LET CnDLG at 

JSR PC, VFEXC 
ENDIF 



SEQ 0108 



8TL 
BTL 



CLR 
CLR 



IF DATA IS TO BE VERIFIED 

TSTB 
BEO 

SAVE THE PREVIOUS COHNAND WORD. 

MOV 

COMMAND IS READ REV. 

MOV 

SET UP CMD LOGGING INDEX. 

MOV 

GO READ ALL THE RECORDS REV. 

IF DRIVE HAS BEEN DROPPED EXIT 

CMP 
3EQ 

BTL 

CLR 

BTL 

CLR 

SAVE THE PREVIOUS COMMAND WORD 

MOV 

COMMAND !S READ FUD. 

MOV 

SET UP CMD LOGGING INDEX. 

MOV 

GO READ ALL RECORDS FUD. 



CMPDAT 

STTIM 

VFYFLG 
50271$ 

CMDWRD.P 

#ROR,CMD 

»4,CMDLG 

DEVTBL(R 
50272$ 

CHPDAT 

STTIH 

'CHDURD,P 

#RDF,CH0 

«6,CHDL6 



ENDIF 
RTS 



PC 



;RETURN. 



50272$: 
50271$: 



GLOBAL 


AREAS 


HACY11 


CZTUVB.Pn 12-JUL-83 


if of 






77AA 






Jf OT 












17Q1 






77Q5 






770'? 
jrVj 


U 1 J jU«t 




l*» 1 


U 1 J jUm 


ni X7X7 

U ■ Jf Jr 




U 1 J J ic 


VHCf jr 


XTQL 

jr TTH 


U I J Jew 






V 1 J JcU 


inS7^7 

lUJf Jf 




V 1 J JCH 


nniAn^ 


Jf T J 


U 1 J JcO 






U I J JcO 


nS37^7 

yjjcf Jf 


Jf tO 


V 1 J J JH 




f A) 
VH i 






X707 

Jf 


U 1 J JJt 






U 1 J JJt 


ni '?7^7 

U 1 Jf Jf 


Jf TO 


U 1 j>*»e 


w 1 jr Jf 


X7QQ 
Jf TT 


V 1 J J JU 




y*/ 


U 1 JJJv 


WJvJf 


3800 


015554 




(4) 


015554 








023737 


\ ▼/ 




00P101 


JOV 1 




004757 


JOvC 




105737 

1 V Jf Jf 


JOl/J 


01 SS74 


001006 


JOUH 
JOU J 


V 1 J Jf V 


WHf Jf 


JOUO 


V 1 JOv£ 






1/ 1 jovc 






1/ 1 JQvC 






V 1 JO 1 V 


001 

W 1 ■•■•J 


JOVf 


V 1 JO 1 c 






ni ^Ai 7 

V 1 JO 1 C 


0^?7^7 
vjc f Jf 




V ■ JOCV 


001421 

WW 1 "tc ■ 


JOwO 


V I JOCC 






V 1 JOCC 


032765 

V JC f U J 




01 ^630 

V 1 JOJw 


001014 




01 ^ftV 






01 563? 


032765 




015640 


001406 


jO 1 V 






(ft) 




10S757 

1 W J f Jf 






00140? 


^811 

JO 1 1 


OISI^SO 


004737 

W^f Jf 


JO 1 c 


01 S6S4 






01 




3813 


015654 




(4) 


015654 


000402 


(3) 


015656 




3814 


015656 


004737 


3815 


015662 




(4) 


015662 




3816 


015662 
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SEQ 0109 



SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: CMDAC, FIRSTU, VFISU. NEXTU, CKHAE. 



; COMMAND PACKET = READ REV OR FUD. 

MOV CMOWRD^C 
BIC #BRF.C,C 
;IF BYTES ARE TO BE SWAPPED: 

TSTB SW6FLC 
BEQ 50273$ 

LET CMDPKT :r CMDPKT SET.BY #SWB.C ;SET SWAB BIT IN CMD PACKET. 

BIS «SW6.C,C 



VFEXC:: LET CMDPKT :r CMDWRD CLR.BY «BRF.C 
IFB SWBFLG NE «0 THEN 



ENDIF 

LET CMDSAV i' CMDPKT 



1$: 



50273$: 

;SAVE COMMAND PACKET 1ST WORD. 

MOV CMDPKT, C 
;SAVE BUFFER START ADDRESS. 
; CLEAR NUMBER OF OPERATIONS. 

CLR NCNT 
: WHILE THERE ARE RECORDS REMAINING: 
50274S: 

CMP 4CNT,NCN 
BGE 50275$ 
; STORE CMD ASCII IN ERROR MSG. 
; CHECK IF WE ARE STREAMING 
.'BRANCH OVER DEVTBL CHECK. THIS ENABLES 
:US TO TEST ONE DRIVE AT A TIME. 
JSR PCFIRSTU ;SET UP FOR FIRST UNIT. 

WHILE DEVTBL(R5) NE #END 00 ;WHILE THERE ARE DEVICES REMAINING: 

50276$: 

CMP DEVTBL (R 
BEQ 50277$ 
IF «M0D.C0 SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 

BIT 



MOV DATARD,CMDPKT4CP.ADL 
LET NCNT := #0 

WHILE NCNT LT NCNT1 DO 



JSR PCCMDAC 
TSTB STREAM 
1$ 



IF «X0.60T NOTSETIN E0rFL6(R5) THEN 
IF fXO.EOT SETIN E0rFL6(R5) THEN 
IFB ALLEOT NE #0 THEN 



JSR PC, VFISU 
ENDIF 



BEQ 

:IF NOT AT 80T 
BIT 



ELSE 



JSR PC, VFISU 
ENDIF 

ENDIF 



«MOD.CO, 
50300$ 

fXO.BGT, 
50301$ 
;BUT IF AT EOT 

BIT #XO.EOT, 
BEQ 50302$ 
;AND ALL OTHERS AT EOT 

TSTB ALLEOT 
BEQ 50303$ 
;THEN READ VERIFY 
:IF NOT ALL AT EOT, FREEZE 

50303$: 
:IF NOT AT BOT AND 

BR 50304$ 

50302$: 

.'NOT AT EOT, READ VFY 

50304$: 



GLOBAL 


AREAS 


MAC VII 


30(1046) 
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01S662 






5817 


01S662 






(4) 




000412 

V WV~ I b 




(3) 


015664 






3818 


015664 






(6) 


015664 


032765 


000001 

WwwV ■ 


(8) 


015672 


001404 




(6) 


01 5674 


032737 


000001 

www WW ■ 


(9) 


01 5702 


001002 

W ■ Wb 




(6) 
3819 


015704 






3820 


015704 


004737 


015770 


3821 


015710 






(4) 


015710 






3822 


015710 






(4) 


015710 






3823 


015710 


105737 


003533 




015714 


001003 






015716 


004737 


016662 

W 1 WWWb 




015722 






\** / 


015722 


000727 

Www f b > 




(3) 


01 5724 






3827 


015724 


004737 


017222 


3828 


015730 




002536 


(6) 


015730 


026527 


(9) 


01 5736 


001005 




3829 


01 5740 






(4) 


015740 


013737 


003424 


(6) 


015746 


005337 


003422 


3830 


015752 






(4) 


015752 






3831 


015752 






(6) 


015752 


005237 


003422 


3832 


015756 






(4) 


015756 


013737 


003430 


3833 








3834 


015764 






(4) 


015764 


000673 




(3) 


015766 






5835 


015766 


000207 
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SEQ 0110 



50301 S: 

ELSE ;ELSC IF CMD IS NOT REVERSE: 

BR 50305S 

50300S: 

IF #XO.EOT NOTSETIN EOTFL6(R5} OR #CMO.C0 NOTSETIN CMDWRD THEN 

BIT JTXO.EOT, 
BEQ 50306S 
BIT #CMD.CO. 
BNE 50307S 

50306t: 

;IF NOT AT EOT Oft NOT A NOTION CMO THEN: 
: ISSUE CMD, CHECK STATUS AND DATA. 



2$: 



JSR PCVFISU 
END IF 

ENDIF 

TSTB STREAM 
BNE 2$ 
JSR PC.NEXTU 
ENDDO 



JSR PCCKHAE 

IF 0EVTBL(R5) EQ MIINUSE 



LET NCNT := NCNT1 - #1 
ENDIF 

LET NCNT :s NCNT ♦ #1 
LET PCMDUD CNDURD 

ENDDO 

RTS PC 



50307$: 
50305t: 

; CHECK FOR TEST OF ON UNIT AT A TIME. 
;BRANCH, IF STREAMING TESTS. 
;60 FIND THE NEXT UNIT. 



BR 

50277$: 

; CHECK FOR HALT AFTER EACH CMD. 
THEN ;IF DRIVES BEEN DROPPED EXIT 

CMP 
BNE 

MOV 

DEC 

50310$: 
.•UPDATE THE RECORD COUNT. 

INC 

:SAVE PREVIOUS COMMAND WORD. 

MOV 



.•RETURN. 



50275$: 



BR 



50276$ 



DEVTBL(R 
50310$ 

NCNT1 .NC 
NCNT 



NCNT 

CMDURD.P 
50274$ 



GLOBAL 


AREAS 


HACY11 


30(1046 


CZTUVB.Pn 12-JUL-83 09:26 


3837 








3838 








3839 








3840 








3841 








3842 








3843 








3844 


015770 






3845 


015770 






(4) 


015770 


013702 


003420 


(6) 


015774 


062702 


000010 


3846 


016000 






(4) 


016000 






(6) 


016000 


020237 


003420 


(9) 


016004 


001403 




3847 


016006 






(4) 


016006 


012742 


U7777 


3848 


016012 






(4) 


016012 


000772 




(3) 


016014 






3849 


016014 


004737 


010576 


3850 


016020 






(6) 


016020 


105737 


003530 


(9) 


016024 


001002 




3851 


016026 


004737 


011166 


3852 


016032 






(4) 


016032 






3853 


016032 






(6) 


016032 


105737 


003530 


(9) 


016036 


001057 




3854 


016040 






(6) 


016040 


032765 


000002 


(9) 


016046 


001053 




3855 


016050 






(6) 


016050 


023727 


002114 


(9) 


016056 


001403 




3856 


016060 


004737 


016200 


3857 


016064 






(4) 


016064 


000444 




(3) 


016066 






3858 


016066 






(6) 


016066 


023727 


003422 


(9) 


016074 


002004 




3859 


016076 






(4) 


016076 


012737 


000070 


3860 


016104 






(4) 


016104 


000411 




(3) 


016106 






3861 


016106 






(6) 


016106 


023727 


003412 


(9) 


016114 


001405 




3862 


016116 


012737 


000017 


(4) 


016116 


3863 


016124 






(4) 


016124 


005037 


003410 


3864 


016130 
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SEQ 0111 



003510 
000003 



006654 
003412 

000017 
003412 



SUBROUTINE TO ISSUE COMMAND, AUAIT INTERRUPT, 

CHECK STATUS. CHECK DATA. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: EXCUTE, GOUAIT. CKDATA. 



VFISU' * 

LET R2 :- DATARD * #8. 



WHILE R2 NE DATARD DO 

LET -(R2) := #-1 
ENDDO 



:INIT READ BUFFER POINTER. 



.•UNTIL 8 BYTES HAVE BEEN SET. 

50311$: 



;INIT READ BUFFER. 



MOV 
ADD 



CMP 
BEQ 

MOV 

BR 



JSR PCEXCUTE 
IFB DROPED EQ #0 THEN 



50312$: 

:G0 EXECUTE THE COMMAND. 
;IF UNIT HAS NOT BEEN DROPPED THEN: 

TSTB 
BNE 

;G0 WAIT FOR DONE BIT. 



JSR PCGOUAIT 
ENDIF 

50313$: 

;IF UNIT HAS NOT BEEN DROPPED THEN: 

TSTB 
BHE 

IF fXO.BOT NOTSETIN E0TFLG(R5) THEN .WHEN NOT REVERSED INTO 

BIT 



IFB DROPED EQ #0 THEN 



IF L$TEST NE #3 THEN 



JSR PC. CKDATA 
ELSE 



:G0 VERIFY DATA. 



BNE 

CMP 
BEQ 



IF NCNT LT #3500. THEN 

LET DATRAT #56. ;1.7X DATA COMPARISONS 
ELSE 

IF DATRAT NE #15. THEN 

LET DATRAT := #15. :6.67X DATA COMPARISONS 

LET CMPDAT := #0 

ENDIF 



50316$: 



50320$: 



BR 

CMP 
B6E 

NOV 

BR 

CMP 
BEQ 

NOV 

CLR 



DATARD, R 
#8.,R2 



R2.DATAR 
50312$ 

#-1,-(R2 

50311$ 



DROPED 
50313$ 



DROPED 
50314$ 
BOT, THEN 
#XO.BOT, 
50315$ 

L$TEST,# 
50316$ 



50317$ 

NCNT.#35 
50326$ 

#56., DAT 

50321$ 

DATRAT, # 
50322$ 

#15.. OAT 

CMPDAT 



GLOBAL AREAS HACYll 30(10^6) 
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AO • Oil 


(4) 


016150 






5865 


016130 






(4) 


016150 






3866 


016130 


005237 


UU3h lU 


3867 


016134 






(6) 


016134 


023757 


UU JH 1 u 


(9) 


016142 


001015 




3868 


016144 






(6) 


016144 


005737 


\J\J3H 1 


(9) 


016150 


001405 




3869 


016152 


004737 




3870 


016156 






(4) 


016156 


005037 




5871 


016162 






(4) 


016162 


000405 




(3) 


016164 






3872 


016164 






(4) 


016164 


012737 


000001 


3873 


016172 






(4) 


016172 


005037 


005410 

WW 1 w 


3874 


016176 






(4) 


016176 






3875 


016176 






(4) 


016176 






3876 


016176 






(4) 


016176 






3877 


016176 






(4) 


016176 






3878 


016176 






(4) 


016176 






3879 


016176 


000207 




3880 









I 9 

12-JUL-83 09:44 PAGE 64-1 

RAMER • READ AND DISPLAY SELECTED RAM 



END IF 

INC CMPDAT 



SEO 0112 



IF CMPDAT EO DATRAT ThIn 

IF STTIM NE «0 THEN :BTL 

JSR PC.CKDATA 
LET CMPDAT :s «0 

ELSE 

LET STTIM :s #1 
LET CNPDAT :s 00 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
RTS PC 



50322S: 
50321$: 

ONE MORE XFER BEFORE A COnPARISON 



CHP 
BNE 

TST 
BEQ 



;8TL 
:BTL 
;BTL 



50324S: 



50325$ 
50323$ 
50317$ 
50315$ 
50314$ 



CLR 
BR 

NOV 

CLR 



C«POAT,D 
50325$ 

STTIH 
50524$ 



CHPDAT 
50525$ 

#1.STTI« 
CMPDAT 



GLOBAL 


AREAS 


MACVll 
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3882 








3883 








388A 








3885 








3886 








3887 








3888 








3889 


016200 






(4) 


016200 


013703 


AA9 » 

003A26 


(6) 


01620A 


4 ^ 9^AV 

163703 


0023AA 


3890 


016210 






(6) 


016210 


MAP ^A V 

005703 




C9) 


016212 


001015 




3891 


01621A 






(A) 


01621A 


1 OA A 56 




C5) 


016216 


A AAA 4 

000021 




(5) 


016220 


OOA250 




(5) 


016222 


AAP t ^ t 

005 A 7A 




3892 


01622A 






(7) 


01622A 


0127A6 


A AP A^y 

00507A 


(6) 


016230 


A4 A 

0127A6 


A A AAA 4 

000001 


(3) 


01623A 


A4 A^ AA 

010600 




(A) 


016236 


4 A / / 4 / 

10AA1A 




fix 

(A) 


0162A0 


A^ ^^A^ 

062706 


AAAAA^ 

OOOOOA 


3893 


0162AA 






(A) 


0162AA 


AAAC A A 

000560 




(5) 


0162A6 






Ton/ 

389A 


0162A6 






(6) 


0162A6 


020337 


f\f\'W 1 ^A 

003 A 26 


(9) 


016252 


1 A1 / i 7 

i01A17 




3895 


01625A 






(A) 


01625A 


4 A / i K d. 

10AA56 




(5) 


016256 


AAA A^ 4 

000021 




(5) 


016260 


AA^ ^PA 

00A250 




(5) 


016262 


AAC / 

005474 




3896 


01626A 






(8) 


A4 X / 

01626A 


A4 A 

013746 


002322 


(7) 


QibcfO 


012746 


0051 15 


(6) 


01627A 


A1 ^7/ A 

012746 


AAAAAO 

000002 


(5) 


016300 


A1 A AAA 

01 0600 




(A) 


016302 


1 A/ / 1 / 

104414 




(A) 


01630A 


062706 


AAAAAA 

000006 


3897 


A4 ^ 71 A 

016310 






(A) 


A1 ^ A 

016310 


AAACTA 

000536 




(3) 


A4 it 94 ^ 

016312 






3898 


A4 ^ ^ 

016312 






(A) 


016312 


A1 A7T7 

010337 


A1 A 

016610 


(6) 


A4 ATI A 

016316 


005337 


016610 


3899 


A4 AT^^ 

016322 


AAC AT7 

005037 


016612 


3900 


016326 


005002 












(A) 


016330 


013703 


003A16 


3902 


01633A 






(A) 


01633A 


01370A 


003A20 


3903 


0163A0 




003531 


(6) 


0163A0 


105737 
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SEO 0113 



SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 

AND PRINT ERROR MESSAGE ON MISCOMPARE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R3. RA. 

CALLS: GCMDA 



CKDATA:: LET R3 



BRFCNT • MSGPKT^MS.RFC .COMPUTE REC LENGTH READ 

MOV 

sue 

IF R3 EO «0 THEN ;WHEN NO DATA RECEIVED 

TST 
BNE 

ERRHRD 17,WTVERM,DTAERM ; PRINT ERROR AND EXIT 

TRAP 
.WORD 
.WORD 
.WORD 



PRINTS fDTAERA 
ELSE 

IF R3 HI BRFCNT THEN 
ERRHRD 17,yTVERM.0TAEftM 

PRINTS «DTAER5,CN0PKT>CP.CNT 



.-COMPARE ROUTINE 



MOV 

MOV 

MOV 

TRAP 

ADD 

BR 



BRFCNT. R 
MSGPKT^M 

R3 

50326S 

CSCRHRD 

17 

WTVERM 
DTAERM 

fDTAERA. 

#1.-(SP) 

SP.RO 

CiPNTB 

«A.SP 

50327$ 



ELSE 

LET CKDCNT :s R3 - #1 

fLR CKDFF 
CLR R2 

LET R3 :« DA TAUT 
LET RA :s DATARD 
IFB T1SWB NE »0 THEN 



50326S: 
;UHEN REC READ IS LONGER 

CMP R3.BRFCN 

BLOS 50330S 

.-THAN EXPECTED, PRINT 

TRAP CSERHRD 

.WORD 17 

.WORD WTVERM 

.WORD DTAERM 

:AN ERROR MESSAGE 

MOV CMDPKT+C 

MOV «DTAER5. 

MOV «2.-(SP) 

MOV SP.RO 

TRAP C$PNTB 

ADD «6.SP 

.-AND EXIT ROUTINE 

BR 50331 S 

S0330S: 

.•SAVE VERIFICATION LENGTH - 1. 

NOV R3,CKDCN 

DEC CrOCNT 
.•CLEAR « OF BYTES IN ERROR COUNTER. 
;INIT BYTE COUNTER 
.'GET WRITE BUFFER ADDRESS. 

MOV DAT AWT. R 
;GET READ BUFFER ADDRESS. 

MOV DATARD. R 
;UHEN RUNNING TEST1-SUB 12. 

TSTB TISWB 



GLOBAL AREAS MACV11 30(1046) 12-JUL-83 09 
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(9) 
390A 
3905 
(4) 
3906 
(3) 
3907 
(6) 
(9) 
3908 
(6) 
(9) 
3909 
(6) 
(9) 
3910 
3911 
3912 
(A) 
3913 
(A) 
39U 
(A) 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
(4) 
(5) 
(5) 
(5) 
3922 
(6) 
3923 
3924 
3925 
3926 
3927 
(6) 
(9) 
3928 
(10) 
(10) 
(9) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
3929 
(4) 



016344 
016346 
016350 
016350 
016350 
016350 
016350 
016350 
016354 
016356 
016356 
016362 
016364 
016364 
016372 
016374 
016376 
016400 
016400 
016400 
016400 
016400 
016400 
016400 
016402 
016404 
016410 
016412 
016416 
016422 
016422 
016424 
016426 
016430 
016432 
016432 
016436 
016442 
016450 
016454 
016462 
016462 
016470 
016472 
016472 
016474 
016500 
016502 
016506 
016510 
016514 
016520 
016522 
016524 
016530 
016530 



001401 
000313 



020237 016610 
001011 

105737 003526 
001406 

032737 000001 016610 

001002 

105723 

105724 



121314 






001452 






Q0W57 


01 661 e 




/."»1010 






U03265 


003300 




005265 


003310 




104456 






000021 






004250 






005474 






005237 


016612 




111437 


003446 




042737 


177400 


003446 


111337 


003450 




042737 


177400 


003450 


023727 


016612 


000013 


002017 






005046 






153716 


003450 




005046 






153716 


003446 




010246 






012746 


004763 




012746 


000004 




010600 






104415 






062706 


000012 
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10 DISPLAY SELECTED RAM 



SEO 0114 
50332$ 



SWAB (R3) ;SUAP FIRST WORD OF URT BFR 

ENDIF .-WHICH CONTAINS THE RECORD COUNT 

50332$: 

.-REPEAT UNTIL ALL DATA IS COMPARED: 
50333$: 

;IF THIS IS THE LAST BYTE THEN: 

CMP R2.CKDCN 
BNE 50334$ 
;IF BYTE SWAPPING IS ENABLED THEN: 

TSTB SWBFLG 
BEQ 50335$ 

IF #BITOO NOTSETIN CKDCNT THEN :IF RECORD LENGTH IS ODD 

BIT JTBITOO.C 
BNE 50336$ 
:LAST BYTE WILL BE IN 
;THE UPPER BYTE. 



REPEAT 

IF R2 EQ CKDCNT THEN 

IFB SWBFLG NE #0 THEN 



TSTB 
TSTB 
ENDIF 



(R3)* 
(R4)* 



ENDIF 
ENDIF 



CMPB (R3),(R4) 
BEQ 3S 
TST CKDFF 
BNE 2t 
INC VFYCNT(R5) 
INC HRDCNT(R5) 
ERRHRD 17,WTVERn«DiAERM 



50336$: 
50335$: 
50334$: 



;ARE THEY EQUAL. 

;BR IF SO. 
;1 ST TIME THRU? 

;BR IF NOT. 

;INC THE VERIFY ERROR COUNTER. 
;INC THE HARD ERROR COUNT. 
.-REPORT WRITE/VERIFY ERROR. 

TRAP C$£RHRD 
.WORD 17 
.WORD WTVERH 
.WORD DTAERM 
.-INCREMENT # OF BYTES IN ERROR. 

INC CKDFF 
.-SAVE WAS DATA FOR TYPOUT. 

.•CLEAR GARBAGE. 
.-SAVE SHOULD BE DATA FOR TYPOUT. 

.-CLEAR GARBAGE. 
;IF ERROR BYTE COUNT IS LESS THAN 11: 

CMP CKDFF, #1 
BGE 50337$ 

PRINTX #DTAER2.R2.<B.TIME1>.<B.TIME2> .-PRINT EXP ♦ ACT DATA. 

CLR -(SP) 
BISB TIME2.(S 
CLR 
BISB 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

50337.= 



LET CKOFf :s CKOfF ♦ #1 

NOVB (R4). TIMET 
BIC #177400. TIME1 

MOVB (R3).TIME2 
BIC #177400. TIME2 

IF CKDFF LT #11. THEN 



-(SP) 
TIME1.(S 
R2.-(SP) 
#DTAER2. 
#4.-(SP) 
SP.RO 
C$PNTX 
#12. SP 



GLOBAL 


AREAS 


MACY11 


30(1046^ 
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3930 


016530 


105723 




3931 


016532 


105724 




3932 


016534 


105722 




3933 


016536 






(3) 


016536 


020237 


016610 


(6) 


016542 


003702 




3934 


016544 






(6) 


016544 


005237 


A4 ^ ^ 4 A 

016610 


3935 


016550 






(6) 


016550 


AAC ^VIV 

005737 


A4 ^ ^ 4 ^ 

016612 


(9) 


016554 


AA4 / 4 / 

001414 




3936 


016556 






(9) 


016556 


01 3746 


A4 A 

016610 


<8) 


016562 


013746 


016612 


(7) 


016566 


A1 ^7/ d. 

012746 


AACATO 

005032 


(6) 


016572 


A1 ^7/ ^ 

012746 


AAAAAV 

000003 


(3) 


016576 


A1 A^AA 

010600 




<4) 


016600 






(4) 


016602 


062706 


AAAA1 A 

000010 


3937 


016606 






(4) 


016606 






3938 


016606 






(4) 


016606 








U lOOUO 






(4) 


016606 






3940 


016606 


000207 




3941 








3942 


016610 


000000 




3943 


016612 


000000 
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3S: 



TSTB (R3)* 
TST8 (R4)* 
TSTB (R2)* 
UNTIL R2 GT CKOCNT 



LET CKDCNT := CKDCNT ♦ #1 
IF CKDFF NE #0 THEN 



PRINTB «DTAER3,CKDFF, CKDCNT 



SFQ 0115 

UPDATE WRITE BUFFER ADDRESS. 
UPDATE READ BUFFER ADDRESS. 
UPDATE BYTE COUNTER. 

.-END OF Data compare repeat loop. 

CMP R2,CICDCN 
BLE 50333$ 
; CKDCNT EQUALS RECORD LENGTH. 

INC CKDCNT 
;IF COMPARE ERROR HAS OCCURED THEN: 

TST CKDFF 
BEO 50340S 
.PRINT » OF BYTcS IN ERROR. 



ENDIF 
ENOIF 
ENDIF 

RTS PC 

CKDCNT: .UORD 0 
fcKDFF: .WORD 0 



MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

50340S: 

50331S: 

50327S: 
; OTHERWISE, RETURN. 

;# OF BYTES TO BE VERIFIED -1. 
:# OF BYTES IN ERROR COUNTER. 



CKDCNT, - 
CKDFF 
fDTAER3, 
f3.-(SP) 
SP.RO 
CtPNTB 
flO.SP 



GLOBAL AREAS MACYll 30(1046) 12-JUL 
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SEQ 0116 



3945 






3946 






594? 






3948 






3949 






3950 






3951 


016614 




(4) 


016614 


105037 


3952 


016620 




(4) 


016620 


005005 


3953 


016622 




(4) 


016622 




(6) 


016622 


026527 


(9) 


016630 


001003 


3954 


016632 


(6) 


016632 


A^ t^A^ 

062705 


3955 


016636 




(4) 


016636 


000771 


(3) 


016640 




3956 


016640 




(6) 


016640 


026527 


(9) 


016646 


001001 


YAP ^ 

3957 


016650 




(3) 


016650 


104444 


3958 


016652 




(4) 


016652 




3959 


016652 




(4) 


016652 


016537 


3960 
3961 


016660 


AAA 

000207 


3962 






3963 






3964 






3965 






3966 






3967 






3968 






3969 






3970 






3971 






3972 


016662 




(4) 


016662 


105037 


3973 


016666 


042705 


3974 


016672 




(3) 


016672 




3975 


016672 




(6) 


016672 


062705 


3976 


016676 




(3) 


016676 


A^^ 

026527 


(6) 


016704 


001772 




UlorUo 




(4) 


016706 


016537 


3978 


01 6714 


000207 


3979 






3980 






3981 







SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



003530 

002536 177774 
000002 

002536 }77777 



FIRSTU::LET DROPED :B= *0 
LET R5 :« #0 



002536 002074 



003530 
177770 



000002 

002536 177774 
002536 002074 



NEXru: 



;CLR UNIT DROPPED FLAG 
;CLR DEVICE POINTER. 



CLR6 
CLR 



WHILE DEVTBL(R5) EQ «NINUSE DO .-WHILE DEVICES ARE NOT IN USE: 

5034 IS: 



LET R5 
ENDOO 



R5 ♦ #2 



.•POINT TO NEXT DEVICE. 



CHP 
BNE 

ADD 

8R 



DROPED 
RS 

DEVTBL(R 
50342S 

«2«R5 

50341S 



IF DEVT6L(R5) EO #END THEN 

DOCLN 
ENDIF 

LET LSLUN DEVTBL(R5) 
RTS PC 



50342S: 

;IF ALL UNITS HAVE BEEN DROPPED THEN: 

CMP DEVTBL(R 
BNE 50343S 
;D0 CLEAN CODE AND TERMINATE PASS. 

TiAP CSDCLN 

50343$: 

;SET UNIT » IN '14EADER" FOR ERROR REPORT 

MOV DEVTBL(R 
.•RETURN WITH 1ST DEVICE IN R5. 



SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



LET DROPED :B= #0 

BIC #177770,R5 
REPEAT 

LET R5 :s R5 * »2 

UNTIL DEVTBL(R5) NE MilNUSE 

LET LSLUN DEVrBL(R5) 
RTS PC 



:CLR UNIT DROPPED FLAG 



CLRB DROPED 



.•REPEAT UNTIL THE NEXT DEVICE IS FOUND. 
50344S: 

.•UPDATE DEVICE TABLE POINTER. 

ADD »2.R5 

CNP DEVTBLCR 

BEQ 50344$ 
;SET UNIT # IN "HEADER" FOR ERROR REPORT 

nOV DEVTBL(R 

.•RETURN. 



GLOBAL 


AREAS 


MACY11 


30(1046 


CZTUVB.Pll 12-JUL-83 09:26 


D70J 








































J TOO 








J TOT 


01^716 

V/ 1 Of 1 o 






(L) 


U 1 Of 1 o 


010557 


003462 


-ITTV 


016722 








016722 


005265 


003320 

W JJC V 


^991 


016726 






(L) 
\"t / 


V 1 W* CO 


01 3704 


002354 

WC 




016732 


042704 

v^c » v^ 


000377 

VW^' ' 


3992 


016736 






(A) 


01 67'^6 


016503 

V I V^V^ 


002506 

VVC ^ w 




016742 






(.It) 


01674? 

V ■ Of "tC 


00S002 
wc 




799^ 


0167A4 

V 1 O f H 






(A) 


016744 








016744 


020227 


000016 

WW ■ w 


f9) 


0167S0 


001405 

VV 1 ^v^ 




^995 


016752 






(A) 


016752 


012723 


1 mn 


3996 


016756 






(6) 


016756 


062702 

VWC ■ Vfc 


000002 


3997 


016762 






(A) 


016762 


000770 




(3) 


016764 








016764 






(A) 


016764 


012775 

V I b f ■ J 


002324 


3999 


016772 


004737 


011516 

VI I ^ ■ V* 




016776 

V I Wi * u 


004737 

VV^ » J' 


011552 

VII 




017002 








017002 

VI* vvc 


020427 


1 57400 


(9) 


01 7006 


001005 

W 1 






017010 


104455 






017010 

VI ■ V I V 






01 701 2 

V ■ * V 1 b 


000020 

V V V VC> V 




(5) 


017014 

VI f V 1 ^ 


004570 




(5) 


017016 

VI ■ V I w 


005642 




4003 


017020 

VI* VfcV 






(4) 


01 7020 

VI* vcv 


000402 




(3) 


017022 

VI' VwC 






4004 


01 7022 

V 1 ■ Vww 


004737 

V V~ ' ^ • 


017140 


4005 


01 7026 

VI' VbV 






(4) 


017026 

VI* vcv 






4006 


01 7026 

VI' VbV 




003473 


(6) 


01 7026 


105737 


(9) 


017032 

VI' V^w 


001404 




4007 


017034 






(6) 


017034 


105237 


003530 


4008 


017040 


004737 


014664 


4009 


017044 






(4) 


017044 






4010 


017044 






(3) 


017044 


104424 
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SEO 0117 



002456 



SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: MOVMSG, PRXST, LOG 



DROPU:: LET R5SAVE :» R5 

LET FTLCNT^RS) := FTLCNT(R5) ♦ #1 



MOV R5 R5SAV 
.•INCREMENT THE FATAL ERROR COUNT. 

INC FTLCNT(R 

LET R4 :s MSGPKT*MS.XS3 CLR.BY #377 ;GET UDIA6 ERROR CODE FROM XSTAT3. 

MOV MSGPKT^M 
BIC #377.R4 
;ADR OF THIS UNIT'S MSG PACKET. 

MOV MSGPKA(R 

:CLR COUNTER. 

CLR R2 
.-WHILE THERE ARE MORE LOCATIONS: 
50345$: 

CMP R2.«MSGC 
BEG 50346S 
;INIT THE MSG PACKET WITH ALL 1'S 

MOV «-1.(R3) 

.•UPDATE COUNTER. 

ADD «2.R2 



LET R3 :s MS6PKA(R5) 

LET R2 «0 

WHILE R2 NE «MSGCNT DO 



LET (R3)* 4f-1 
LET R2 R2 ♦ 4f2 
ENDDO 



LET aTSDB(R5) fGSCPK 

JSR PC.WSSR 

JSR PC«MOVMSG 

IF R4 EQ #X3.RNY THEN 



ERRDF 16.RNYM,STAERM 

ELSE 

JSR PCPRXST 
ENDIF 

IFB RECLOG NE #0 THEN 

LET DROPED :B= DROPED ♦ #1 

JSR PC. LOG 
ENDIF 

DORPT 



BR 50345$ 

50346$: 

; INITIATE A GET STATUS COMMAND. 

MOV fGSCPK «a 

:WAIT A WHILE FOR SSR-1 

:M0VE MSG PACKET TO COMMON AREA. 

;IF WE HAVE A CAPSTAN RUNAWAY THEN: 

CMP R4,#X3.R 
BNE 50^7$ 
.•REPORT CAPSTAN RUNAWAY WITH TACH CNT. 

TRAP C$ERDF 
.WORD 16 
.WORD RNYM 
.WORD STAERM 

;ELSE-IF NOT A RUNNAWAY: 

BR 50350$ 

50347$: 

.-PRINT EXTENDED STATUS REGISTERS. 
50350$: 

:IF THE RECORD HAS BEEN LOGGED THEN: 

TSTB RECLOG 
BEQ 50351$ 

.-SET UNIT DROPPED FLAG. 

INCB DROPED 
;LOG DATA BYTES ♦ RD/WR ERRORS. 



50351$: 
;PRINT PERFORMANCE REPORT 

TRAP 



C$DRPT 



GLOBAL 


AREAS 


MAC VII 


30(1046) 


CZTUVB.P11 12-JUL-83 09:26 


^011 

H\J 1 1 


01704^ 






* u / 


01 704 A 


00S7AS 


OO^PftO 


\ T/ 


01 70S? 


00140? 




Hw 1 C 


0170^4 






eft's 


0170S4 




00^?A0 


HU 1 J 


0170A0 








01 70 AO 






HV 1 H 


0170/\0 








0170A0 




00?^^^ 


•lU 1 J 


0170AA 








0170^ 


010S00 




f 7> 

\ f # 


01 7070 


00A?00 




HU 1 w 


01 707? 








01 707P 

V 1 r vr C 


1044S1 




4017 


01 7074 






V u / 


01 7074 


0?65?7 


00?536 


\ T/ 


01710? 


001410 






017104 








017104 


105737 


002210 


(9) 


017110 


001005 




4019 


017112 

W 1 ■ lib 


000240 

WWWfc" w 




4020 


017114 


000240 

WW Wfc~ w 




4021 


017116 


000240 




4022 


017120 






(6) 


017120 


105237 


003536 


4023 


017124 






(4) 


017124 






4024 


017124 






(4) 


017124 






4025 


017124 






(6) 


017124 


105237 


003530 


4026 


017130 






(4) 


017130 


013705 


003462 


4027 


017134 


000207 




4028 








4029 


017136 


000000 
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DROPUA: IF PASCNT(R5) NE #0 THEN 

LET PASCNT(RS) :s PASCNT(RS) - #1 
ENDIF 



TST 
BEQ 

DEC 



SEQ 0118 



PASCNT(R 
50352$ 

PASCNT(R 



50352$: 

LET DROPN :s DEVTBL(R5) ;SAVE » OF UNIT TO BE DROPPED. 

MOV DEVTBL(R 

LET RO R5 SHIFT -1 ;R0=LOGICAL DEVICE NUMBER 

MOV R5,R0 
ASR RO 

DODU RO ;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 

TRAP CSDODU 

;IF UNIT NOT DROPPED 

CMP DEVTBL(R 
BEQ 50353$ 
;IF RECOVERY IS ENABLED THEN: 

TSTB IREC 
BNE 50354$ 

NOP 
NOP 
NOP 

;SET START FLAG TO ENABLE REWIND, 

INCB STAFLG 



IF DEVTBL(R5) NE #NINUSE THEN 
IFB IREC EQ »0 THEN 



LET STAFLG :B= STAFLG ♦ *1 
ENDIF 
ENDIF 

DRORTN: LET DROPED :B= DROPED * »} 

LET R5 :s R5SAVE 

RTS PC 
DROPN: .WORD 0 



50354$: 
50353$: 

;SET UNIT DROPPED FLAG. 



; RE TURN. 
;» OF UNIT TO BE DROPPED 



INCB 
MOV 



DROPED 
R5SAVE,R 



GLOBAL AREAS MACYll 30(1046) 
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4031 
4032 
4033 
4034 
4035 
4036 

4037 017140 

(7) 017140 012746 005243 

(6) 017144 012746 000001 

(3) 017150 010600 

(4) 017152 104415 

(4) 017154 062706 000004 

4038 017160 

(11) 017160 013746 002354 
<10) 017164 013746 002352 
(9) 017170 013746 002350 

(8) 017174 013746 002346 

(7) 017200 012746 006467 
(6) 017204 012746 000005 

(3) 017210 010600 

(4) 017212 104415 

(4) 017214 062706 000014 

4039 017220 000207 
4040 

4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
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SEQ 0119 



SUBROUTINE 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



PRXST:: PRINTX *GETSTM 



TO PRINT EXTENDED STATUS REGISTERS. 



NOV 
NOV 
P10V 
TRAP 
ADO 



*GETSTM. 
#1,-(SP) 
SP,RO 
C$PNTX 
#4,SP 



PRINTX *STAER5.MS6PKT*MS.XS0,MS6PKT*«.XS1,NSGP»(T*HS.XS2.HS6PKT*«S.XS3 



RTS PC 



SUBROUTINE TO HALT AFTER EACH COMMAND. 

INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 

CALLS: 



NOV 

NOV 

NOV 

MOV 

NOV 

MOV 

MOV 

TRAP 

ADD 



NSGPKT+M 
NSGPKT*M 
MSGPKT+M 
MSGP<T*M 
#STAER5, 
#5.-(SP) 
SP.RO 
C$PNTX 
#14, SP 



4050 


017222 






CKHAE:: IFB HAE NE «0 THEN 


(6) 


om22 


105737 


002206 




(9) 
4051 
(6) 


017226 


001430 






017230 






IfB NISCF6 EQ #0 THEN 


017230 


105737 


003541 


(9) 


017234 


001023 






4052 


017236 






MANUAL 


(5) 


017236 


104450 






4053 


017240 






BNCOMPLETE CKHRTN 


(2) 


017240 


103023 






4054 


017242 






LET R4 :r CMDURD 


(4) 


017242 


013704 


003430 




4055 


017246 


004737 


007670 


JSR PCGCMDA 


4056 


017252 
017252 






LET HALTM :B- (R3)* 


(4) 


1 1 -JXTT 


004126 




4057 


017256 






lET HALTH+1 :8= CR3)* 


(4) 


017256 


112337 


004127 


4058 


017262 






LET HALTM^2 :B- (R3} 


(4) 


017262 


111337 


004130 




4059 


017266 






GMANIL HALTM, TIMET. 1, YES 


(3) 


017266 


104443 




(3) 


017270 


000404 






(4) 


017272 


003446 







TSTB 
BEQ 

TSTB 



;IF HALT FLAG IS SET: 

HAE 

50355S 

MISCFG 
50356S 

;IS MANUAL INTERVENTION ALLOWED? 

TRAP CSMANI 

:BR IF NOT. 

BCC CKHRTN 

: COMMAND WORD. 

MOV CMDURD, R 

.FETCH ADR OF CMO ASCII. 
.-MOVE CMD ASCII 

MOVB (R3}«.HA 
HOVB (R3}^,HA 

.-INTO MESSAGE. 

MOVB (R3) .HAL 
.-HALT - WAIT FuK AN OEPRATOR INPUT. 

TRAP C$GMAN 
BR 10000S 
.WORD TIMET 



GLOBAL AREAS 
CZTUVB.Pil 



HACYll 30(1046) 
12-JUL-83 09:26 
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(5) 017274 000130 

(5) 017276 004126 

(5) 017300 000001 

(3) 017302 

4060 017302 

(4) 017302 000402 

(3) 017304 

4061 017304 

(4) 017304 105037 003541 

4062 017310 
(4) 017310 

4063 017310 
(4) 017310 

4064 017310 000207 



10000S: 



ELSE 



LfJ NJSCFG :Bs «0 
ENDJF 
ENDIF 
CKHRTN: RTS PC 



.•RETURN 



50356S: 

50357S: 
50355S: 



.WORD 
.yORD 
.yORD 



BR 



CLRB 



SEO 0120 



TICOOE 

HALTH 

1 



50357$ 
H1SCF6 



GLOBAL AREAS MACVll 30(1046) 
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4066 








: SUBROUTINE TO CREATE 


THE SEQUENCE FOR A WRITE TAPE MARK 




4067 








COMMAND. WILL EXECUTE COMMAND TO UUT. 




4068 








INPUTS: 






4069 








OUTPUTS: CMDSEQ 






4070 








CALLS: SETUP. CMDAC, EXCUTE. GOUAIT 




4071 














4072 


017312 






URITEM:: 






4073 


017312 






LET R1 i- «CMDSEQ 






(4) 


017312 


012701 


003544 






MOV 


4074 


017316 






LET (RD* ;s *WTM 


.-COMMAND 




(4) 


017316 


012721 


100011 






MOV 


4075 


017322 






LET (RD* := #1 


;BRF 




(4) 


017322 


012721 


000001 






MOV 


4076 


017326 






LET (RD* := #1 


.•ITERATIONS 




(4) 


017326 


012721 


000001 






MOV 


4077 


017332 


005721 




TST (RD* 


.•PATTERN 




4078 


017334 






LET («!)♦ :s #END 


; TERMINATOR 




(4) 


017334 


012721 


1 77777 






MOV 


4079 


017340 






LET R1 I- «CMDSEO 


;TOP OF BUFFER 




(4) 


017340 


012701 


003544 






MOV 


4080 


017344 


004737 


007722 


JSR PC. SETUP 


;SET UP THE TABLE 




<»081 


017350 


004737 


007614 


JSR PC. CMDAC 


;LOAD THE ASCII 




4082 


017354 


004737 


010576 


JSR PC. EXCUTE 


.'ISSUE THE UTM COMMAND 




4083 


017360 


004737 


011166 


JSR rc. COUAIT 


.•WAIT FOR THE COMMAND TO FINISH 




4084 


017364 


000207 




RTS PC 


.•RETURN TO CALLER 




4085 








.EVEN 






4086 














4087 


017366 






ENDMOD 







SEQ 0121 



«CMDSEQ. 
«WTM. (R1 
#1.(R1)* 
«1.(R1)* 

#END.(R1 
tCMDSEQ. 



017366 



GLOBAL AREAS 
CZTUVB.P11 



4099 
4100 
4101 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
(3) 
4119 
4125 
(4) 
4126 
4127 
(4) 
(6) 
(9) 
4128 
(10) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
4129 
(11) 
(10) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
4130 
(11) 
(10) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
4131 
(11) 
(10) 
(9) 
(8) 
(7) 



HACYII 30v1046) 
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017366 
017366 

017366 
017366 
017372 
017376 
017376 
017376 
017404 
017406 
017406 
017412 
017416 
017422 
017426 
017432 
017434 
017436 
017442 
017442 
017446 
017452 
017456 
017462 
017466 
017472 
017474 
017476 
017502 
017502 
017506 
017512 
017516 
01^522 
017526 
017532 
017534 
017536 
017542 
017542 
017546 
017552 
017556 
017562 



010537 
004737 



026527 
001562 

016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
016546 
012746 



F 10 
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RAMER - READ AND DISPLAY SELECTED RAM 



.TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT CODING SECTION 

B6NN0D 



SEO 0122 



THE REPORT CODING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



L$RPT:: 



BGNRPT 



003462 
016614 



002536 \mil 



003330 
003260 
002536 
020230 
000004 



000012 

002560 
002570 
002600 
00261 G 
020305 
000005 



000014 

002620 
002630 
002640 
002650 
020356 
000005 



000014 

002660 
002670 
002700 
002710 
020427 



LET 

JSR 
WHILE 



R5SAVE k5 



;SAVE 



PC.FIRSTU 
DEVTBL(R5) NF 



«END DO 



PRINTS 



PRINTS 



CURRENT DEVICE POINTER. 

NOV 

:FIND THE FIRST UNIT. 
; WHILE THERE ARE MORE DEVICES: 
50360$: 

CMP 
BEQ 

«RPT1A,DEVTBL (R5) ,PASCNT(R5) ,RECCNT(R5) 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



fRPT1B,WR8C«30(R5) ,WRBC*20(R5) ,WRBC«10(R5) ,WRBC (R5) 



R5,R5SAV 



DEVT6L(R 
50361$ 

RECCNT(R 
PASCNT(R 
DEVTBL(R 
#RPT1A.- 
#4,-(SP) 
SP.RO 
C$PNTS 
#12,SP 



PRINTS 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



WRBC(R5) 
WRBC«10( 
WRBC«20( 
WRBC«30( 
*RPT1B,- 
#5,-(S?> 
SP,RO 
C$PNTS 
#14,SP 



PRINTS 



#RPT1C,RR8C«30(R5).RRBC*20(R5).RRBC«10(R5),RRBC(R5> 

NOV RRBC(R5) 
NOV RRBC«10( 
NOV RRBC«20( 
NOV RRBC«30( 
NOV »RPT1 C.- 
NOV #5,-(SP) 
NOV SP.RO 
TRAP CSPNTS 
ADD #14, SP 

«RPT1D,RFBC*30(R5) ,RFBC*20(R5) .RFBC*10(R5) ,RFBC(R5) 

MOV RFBC(R5) 

MOV RFBC«10( 

MOV RFBCt20( 

MOV RFBC*30( 

MOV fRPTIO.- 
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(6) 


017566 


012746 


000005 


(3) 


017572 


010600 




(4) 


017574 


104416 




(4) 


017576 


062706 


000014 


4132 


017602 






(10) 


017602 


016546 


002760 


(9) 


017606 


016546 


002740 


(8) 


017612 


016546 


002720 


(7) 


017616 


012746 


020533 


(6) 


017622 


012746 


000004 


(3) 


017626 


010600 




(4) 


017630 


104416 




(4) 


017632 


062706 


000012 


4133 


017636 




002770 


(10) 


017636 


0 16546 


(9) 


017642 


016546 


002750 


(8) 


017646 


016546 


002730 


(7) 


017652 


012746 


020604 


(6) 


017656 


012746 


000004 


(]» 


017662 


010600 




(4) 


017664 


104416 




(4) 


017666 


062706 


000012 


4134 


017672 






(6) 


017672 


105737 


002211 


(9) 


017676 


001402 


017762 


4135 


017700 


004737 


4136 


017704 






(4) 


017704 






4137 


017704 




003300 


(11) 


017704 


016546 


(10) 


017710 


016546 


003320 


(9) 


017714 


016546 


003310 


(8) 


017720 


016546 


003270 


(7) 


017724 


012746 


021001 


(6) 


017730 


012746 


000005 


(3) 


017734 


010600 




(4) 


017736 


104416 




(4) 


017740 


062706 


000014 


4138 


017744 


004737 


016662 


4139 


017750 






(4) 


017750 


000612 




(3) 


017752 






4140 


017752 






(4) 


01 7752 


013705 


003462 


4141 


017756 






(4) 


017756 


000167 




(3) 


017760 


001230 




4142 








4143 








4144 








4145 








4146 








4147 








4148 


017762 






(8) 


017762 


016546 


003250 


(7) 


017766 


012746 


020655 
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SEQ 0123 



PRINTS 



#RPT1F,WRREC(R5),RRREC<R5).PFREC(R5) 



PRINTS 



«RPT1G,WRUNR(R5) ,RRUNR(R5) ,RFUNR(R5) 



IFB BAOTSW NE »0 THEN 



JSR PCBTRPT 
ENDIF 

PRINTS 



;C0 PRINT BAD TAPE SPOTS WHEN 



NOV 


#5,-(SP) 


NOV 


SP,RO 


TRAP 


CSPNTS 


ADD 


#14, SP 


MOV 


RFREC(R5 


NOV 


RRREC(R5 


NOV 


WRREC<R5 


NOV 


0RP^^f 


NOV 


f4,-(SP) 


NOV 


SP.RO 


TRAP 


CSPNTS 


ADD 


f 12,SP 


NOV 


RFUNR(R5 


NOV 


RRUNR(R5 


NOV 


WRUNR(RS 


NOV 


fRPTIG,- 


NOV 


f4,-(SP) 


NOV 


SP,RO 


TRAP 


CSPNTS 


ADD 


#12. SP 


TST8 


BAOTSW 


BEQ 


50362$ 


ENABLED 





50362S: 

#RPT1 I ,SCCNT(R5) ,HRDCNT(R5) ,FTLCNT(R5),VFyCNT(R5) 



JSR 
ENDDO 



PCNEXTU 



.-FIND THE NEXT UNIT. 



NOV 
NOV 
MOV 
NOV 
NOV 
NOV 
NOV 
TRAP 
ADO 



BR 



VFYCNT(R 
FTLCNT(R 
HRDCNKR 
SCCNT(R5 
#RPT1I,- 
#5,-(SP) 
SP,RO 
CSPNTS 
#14, SP 



50360$ 



LET R5 := R5SAVE 
EXIT RPT 



50361$: 

.RESTORE CURRENT DEVICE POINTER. 

NOV R5SAVE.R 



.WORD 
.WORD 



J$JNP 
LI 001 0-2 



SU6R TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
WRITE RETRIES: CUMULATIVE COUNT 

BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 



BTRPT: PRINTS #RPT1E,WRTYCT(R5) 



.•PRINT GLOBAL WRITE RETRY COUNT 

NOV WRTYCTCR 
MOV #RPT1E.- 
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(6) 


017772 


012746 


000002 


(3) 


017776 


010600 




(4) 


020000 


104416 




(4) 


020002 


062706 


000006 


4149 


020006 






(4) 


020006 


016537 


002550 


4150 


020014 






(4) 


020014 


017703 


163500 


(7) 


020020 


006203 




4151 


020022 






(8) 


020022 


010346 




(7) 


020024 


012746 


020705 


(6) 


020030 


012746 


000002 


(3) 


020034 


010600 




(4) 


020036 


104416 




(4) 


020040 


062706 


000006 


4152 


020044 






(6) 


020044 


005703 




(9) 


020046 


001457 




4153 


020050 






(6) 


020050 


020327 


000024 


(9) 


020054 


101402 




4154 


020056 






(4) 


020056 


012703 


000024 


4155 


020062 






(4) 


020062 






4156 


020062 






(7) 


020062 


012746 


005302 


(6) 


020066 


012746 


000001 


(3) 


020072 


010600 




(4) 


020074 


104416 




(4) 


020076 


062706 


000004 


4157 


020102 






(4) 


020102 


013704 


003520 


(6) 


020106 


062704 


000002 


4158 


020112 






(4) 


020112 


005002 




4159 


020114 






(3) 


020114 






4160 


020114 






(8) 


020114 


011446 




(7) 


0201 )6 


012746 


020772 


(6) 


020122 


012746 


000002 


(3) 


020126 


010600 




(4) 


020130 


104416 




(4) 


020132 


062706 


000006 


4161 


020136 






(6) 


020136 


005202 




4162 


020140 






(6) 


020140 


062704 


000002 


4163 


020144 






(6) 


020144 


020227 


000012 


(9) 


020150 


001014 




4164 


020152 






(7) 


020152 


012746 


005302 


(6) 


020156 


012746 


000001 
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LET BTPT := BTADDR(R5) 
LET R3 := aSTPT SHIFT -1 



nov 

MOV 
TRAP 
ADD 

;BTPT IS BOTH THE BAD TAPE SPOT COUNTER 

nov 



;AND THE LOGGING INDEX 



PRINTS «RPT1J,R3 



;PRINT # OF BAD TAPE SPOTS 



IF R3 NE #0 THEN 

IF R3 HI «20. THEN 

LET R3 := #20. 
ENDIF 

PRINTS fCRLFSP 

LET R4 BTPT ♦ #2 

LET R2 :- «0 
REPEAT 

PRINTS «RPT1K«(R4) 



nov 

ASR 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



SEQ 0124 

#2,-(SP) 
SP.RO 
CSPNTS 
«6,SP 

BTADDR(R 

aBTPT,R3 
R3 

R3,-(SP) 
#RPT1J,- 
*2,-vSP) 
SP,RO 
CfPNTS 
#6,SP 



PRINT RECORD « IF BAD SPOTS DETECTED 



TST 
BEO 

CMP 

BLOS 

20 BAD SPOTS IS THE LIMIT 

MOV 

50364S: 



MOV 
MOV 
MOV 
TRAP 
ADD 

MOV 
ADD 

;R2 ' PRINT COUNT PER LINE: 10 MAX 

CLR 



.•FETCH A BAD SPOT ID 



50365$: 
: PRINT A BAD SPOT ID 



LET R2 :s R2 ♦ #1 
lET R4 I' R4 * «2 
IF R2 EQ #10. THEN 

PRINTS #CRLFSP 



COUNT PRINTS 
NEXT 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

ADD 

CMP 
BNE 



R3 
50363S 

R3.#20. 
50364S 

«20..R3 



#CRLFSP. 

#1.-CSP) 

SP.RO 

C$PNTS 

#4.SP 

BTPT.R4 
«2.R4 

R2 



(R4).-{S 

fRPTHC.- 

#2.-(SP) 

SP.RO 

CSPNTS 

«6.SP 

R2 

«2.R4 

R2.#10. 
50!66S 



:G0 TO NEXT PRINT LINE PAST 10 PRINTS 

MOV fCRLFSP. 
MOV #1.-(SP) 
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(5) 


020162 


010600 






(4) 


020164 


104416 






(4) 


020166 


062706 


000004 




4165 


020172 








(6) 


020172 


162703 


000012 




4166 


020176 








(6) 


020176 


162702 


000012 




4167 


020202 








(4) 


020202 








4168 


020202 








(3) 


020202 


020203 






(6) 


020204 


001343 






4169 


020206 








(4) 


020206 








4170 


020206 








(7) 


020206 


012746 


005277 




(6) 


020212 


012746 


000001 




(3) 


020216 


010600 






(4) 


020220 


104416 






(4) 


020222 


062706 


000004 




4171 


020226 


000207 






4172 










4184 










4185 


020230 


047045 


047045 


040445 


4186 


020305 


045 


041101 


052131 


4187 


020356 


040445 


054502 


042524 


4188 


020427 


045 


041101 


052131 


4189 


020477 


045 


031123 


022463 


4190 


020533 


045 


051101 


041505 


4191 


020604 


040445 


047125 


042522 


4192 


020655 


045 


053501 


04452? 


4193 


020705 


045 


022516 


031104 


4194 


020772 


042045 


022465 


030523 


4195 


021001 


045 


051501 


042520 


4196 


021055 


045 


031523 


042045 


4197 


021112 


047045 


040445 


040524 


4198 


021156 


047503 


051122 


041505 


4199 










4200 










4201 


021212 








(3) 


021212 








(3) 


021212 


104425 






4202 










4203 










4204 










4205 










4206 










4207 


021214 








(3) 


021214 








4208 


021214 


000000 






4209 


021216 


}77777 






4210 


021220 


}77777 






4211 


021222 
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SEQ 0125 



LET R3 := R3 - #10. 
LET R2 := R2 - #10. 
END IF 
UNTIL R2 EQ R3 

END IF 

PRINTS #CRLF 



.-ADJUST BAD SPOT COUNT 
.•ADJUST PRINT COUNT 

50366$: 

; LIMIT: # OF BAD SPOTS 



nov 

TRAP 
ADD 

SUB 

SUB 



50363$: 





RTS PC 




.NLJST 


RPT1A 


.ASCI2 


RPT16. 


.ASCIZ 


RPT1C 


.ASCIZ 


RPT1D 


.ASCII 




.ASCJ2 


RPT1F 


.ASCIZ 


RPT16 


• .ASCJZ 


RPT1E 


• .ASCIZ 


RPT1J 


• .ASCIZ 


RPTIK 


: .ASCIZ 


RPT1I 


' .ASCII 




.ASCIZ 


TAPCAP: .ASCIJ 




.ASCIZ 




.LIST 




.EVEN 




ENDRPT 



C«P 
BNE 



nov 
nov 
nov 

TRAP 
ADD 



BEX 

/2NZNXAUNI T XD1 XS3XAPASS :XD5XS3XARECORD : XD5XN/ 
/XABYTES WRITTEN XD3XA,XZ3XA,XZ3XA,XZ3XN7 
/XABYTES READ REV XD3XA,XZ3U,XZ3XA,XZ3XN/ 
/XABYTES READ FVD XD3XA,XZ3U,XZ3XA,XZ3XN/ 
/XS23XAWRTXS4XAR0RXS4XARDFXN/ 
/XARECOVERABLE ERRORS XD5XS2XD5XS2X05XN/ 
/XAUNRECOVERABLE ERRORS XD5XS2XD5XS2XD5XN/ 
/XAURITE RETRIESXS8XD5XN/ 

/XNXD2XA BAD SPOTS THIS TAPE PASS PRECEDING RECORD #:/ 
/XD5XS1/ 

"XASPEC CONDXS3XAHARDXS3UFATALXS3XACOnPAREXN" 

/XS3XDSXS3XDSXS3XD5XS3XD5XNXN/ 

/XNUTAPE LENGTH HUST BE 2400 FT. TO / 

/CORRECTLY RUN THIS TESTJIXN/ 

BEX 



SP.RO 

C$PNTS 

#4.SP 

#10., R3 

#10.. R2 



R2.R3 
50365$ 



#CRLF,-( 

#1,-(SP) 

SP.RO 

C$PNTS 

#4.SP 



L10010: 



TRAP C$RPT 



.-LOAD DEVICE PROTECTION TABLE 

.•TABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 

;THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD 



L$PROT: 



BGNPROT 

.WORD 0 
.WORD -1 
.WORD -1 
ENDPROT 



;P-TBL OFFSET OF TSSR. THE TU80 CSR 

;P-TBL OFFSET OF nASS BUS UNIT #: -1 = NOT A nAS 

;P-TBL OFFSET OF DRIVE #: -1 = NONE, ONE DRIVE P 
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A213 








42U 








A215 








A216 








4217 








4218 








4219 








4220 


021222 






(5) 


021222 






4221 








4231 


021222 






(6) 


021222 


032727 


A A A A A 9 

000003 


(9) 


021230 


001421 


) 


4232 


021232 






(4) 


021232 


104454 




(5) 


021234 


000001 




(5) 


021236 


004166 




(5) 


021240 


000000 




4<>33 


021242 






(2) 


021242 


012727 


A A A A £ 

000024 


(2) 


021246 


000000 




(2) 


021250 


A4 9^1^ 

013727 


A A ^ 4 4 X 

002116 


(2) 


021254 


AAA AAA 

000000 




(2) 


021256 


005367 


177772 


(2) 


021262 


AA4 

001375 




(2) 


021264 


AAf 7Z ^ 

005367 


177756 


(2) 


021270 


AA4 9^ 7 

001367 




4234 


A^4 

02^272 


AAA^C V 

000753 




4235 


021274 






(4) 


021274 






4236 








4237 


021274 






(6) 


021274 


105737 


AA^^A/ 

002204 


(9) 


A^ 4 9AA 

021300 


AA4 J 4 Y 

001413 




4238 


021302 


4 AP A99 

105037 


AA'^'^A^ 

002204 


4239 


A'%4 

021306 






(4) 


A*% 4 

021306 


AAf AA^ 

005002 




4240 


A'%4 94 A 

021310 






(4) 


94 A 

021310 






(6) 


A04 T4 A 

021310 


020227 


AAACC A 

000550 


(9) 


A^4 94 J 

021314 


AA4 /AC 

001405 




4241 


A^4 V4 ^ 

021316 






(4) 


A04 94 Z 

021316 


AAC AX 

005062 


002560 




021322 






(6) 


A^4 

021 322 


AX ^7A^ 

062702 


000002 


4243 


021326 






(4) 


A'l 4 

021326 


000770 




(3) 


021330 






4244 


A*^4 99A 

021330 






(4) 


A'>4 9TA 

021330 






4c* 5 








4246 


021330 


105737 




(6) 


021330 


002205 


(9) 


021334 


001406 




4247 


021336 






(4) 


021336 


012737 


153624 
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.S81TL INITIALIZE SECTION 



THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS. 



BGNINIT 

LSINIT:: 

INITIO: IF «8IT0!BIT1 SFTIN #CMDPKT 
ERRSF I.CMDPKK 



DELAY 20. 



BR INITIO 
ENOIF 



IFB CLRFL6 NE #0 THEN 



CLRB CLRFL6 
LET R2 :- #0 

WHILE R2 NE #CNTLEN DO 



LET URBC(R2> #0 
LET R2 R2 ♦ #2 
ENDDO 

ENDIF 

IFB RRANV NE #0 THEN 
LET RANB :- fRANBC 



THEN ;IF CMD PACKET IS NOT ON MODULO 4 bOUN 

BIT JTBITO'BI 

BEQ 50367S 

.•PRINT ERROR MSG, 

TRAP CSERSF 

.WORD 1 

.WORD CMOPKM 

.WORD 0 

;G0 TO SUPERVISOR, WAIT 2 SECONDS. 

MOV ir20.,(PC 

.WORD 0 

MOV LSDLV,(P 

.WORD 0 

DEC -6 (PC) 

BNE .-4 

DEC -22(PC) 

BNE .-20 



50367$: 

;IF CLR COUNTERS FLAG SET: 

TSTB 
BEQ 

;INIT CLR FLAG. 



50371$: 



CLR 



CMP 
BEQ 



:CLR ALL STATISTICAL COUNTERS. 

CLR 

ADD 

BR 



CLRFLG 
50370$ 



R2 

R2-#CNTL 
50^72$ 

WRBC(R2) 

#2.R2 

50371$ 



50372$: 
50370$: 

:IF RESET RANDOM VARIABLE FLAG IS SET TH 

TSTB RRANV 
BEQ 50373$ 

; RE SET RANDOM BASE «. 

MOV #RANBC,R 
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INITIALIZE SECTION 

LET RANS fRANSC 
ENDIF 

READEF 4fEF. START 

BNCOMPLETE INIT15 
LET STAFLG :B» STAFLG ♦ «1 
LET R5 »6 
LET HERE :B- »0 
REPEAT 

LET DEVTBL(R5) :- fNINUSE 
LET R5 R5 - »2 
UNTIL R5 EQ »0 

LET R5 :« LSUNIT SHIFT 1 

REPEAT 

LET R5 :* R5 - #2 

LET DEVT6L(R5) :s R5 SHIFT 

UNTIL R5 EQ #0 

INIT15: READEF #EF.PyR 

BNCONPLETE INIT16 

LET STAFLG :B- STAFLG * #1 
LET PWRFLG :Bs PURFLG ♦ »^ 

INIT16: RFLAPS OPFLAG 

LET R3 »0 

IFB PURFLG EQ »0 THEN 



.•RESET RANDOM SAVE LOCATION. 

HOV 

50373$: 

;READ START COMMAND EVENT FLAG. 

NOV 
TRAP 

.-BRANCH IF NOT STARTING. 

BCC 

:SET START COMMAND FLAG. 

INCB 



SEQ 0127 
mNSC.R 



#EF.STAR 
CSREFG 



INIT15 
STAFLG 



-1 



MOV 



#6.R5 

FLAG 
HERE 



CLEAR THE 'BEEN HERE BEFORE' 

CLRB 

INITIATE UNIT NUMBER TABLE 
50374$: 

BV STORING NOT IN USE IN EACH LOCATION. 

MOV 



.•STORE ALL UNIT 

50375$: 
.-NUMBERS IN DEVTBL. 



SUB 

TST 
BNE 

MOV 

ASL 



SUB 

NOV 
ASR 

TST 
BNE 



«NINUSE, 
#2.R5 
R5 

50374$ 

L$UNIT.R 
R5 



#2,R5 

RS.DEVTB 
DEVTBL (R 

R5 

50375$ 



;HAS THERE BE A POUER FAILURE? 

MOV «EF.pyR, 

TRAP C$REFG 

;BRANCH IF NOT. 

BCC INIT16 
;IF SO - SET THE START FLAG. 

INCB STAFLG 
;IF SO - SET THE POUER FAIL FLAG. 

INCB PWRFLG 

.-READ AND STORE FLAGS SET BV OPERATOR 

TRAP C$RFLA 

MOV RO.OPFLA 

.•CLEAR EVENT FLAG 

CLR R3 

;IF POUER FAIL HAS NOT OCCURRED THEN: 

TSTB PWRFLG 

BNE 50376$ 



MISCELLANEOUS 
C2TUVB.P11 



4273 


021500 




(3) 


021500 


012700 


(3) 


021504 


104447 


4274 


021506 




(6) 


021506 


103014 


4275 


021510 




(6) 


021510 


105737 


(9) 


021514 


001 01 C 


4276 


021516 




(3) 


021516 


012700 


(3) 


021522 


104447 


4277 
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(6) 
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(6) 
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021534 




<4) 


021534 




4282 


021534 




(4) 


021534 


000401 


(3) 


021536 




4283 


021536 




(6) 


021536 


005203 


4284 


021540 




(4) 


021540 




^^.285 


021 54C 




(4) 


021540 




4286 


.021540 




(4) 


021540 




4287 


021540 


004737 


4288 


021544 




(4) 


021544 


005002 


4289 


021546 




(4) 


021546 




(6) 


021546 


026527 


(9) 


021554 


001450 


4290 


021556 




(6) 


021556 


005202 


4291 


021560 




(4) 


021560 


010500 


(7) 


021562 


006200 


4292 


021564 




(3) 


021564 


104442 


4293 


021566 




(6) 


021566 


103036 


4294 


021570 




(4) 


021 570 


011065 


4295 


021574 




(4) 


021574 


012065 


(6) 


021600 


162765 


4296 


021606 




(4) 


021606 


011065 
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000035 



12-JUL-83 
INITIALIZE 



09:44 
SECTION 



PAGE 



L 

71-2 



10 



003536 
000037 



016614 



002S36 177777 



002466 
002456 

000002 002456 
002476 



READEF «EF.NEU 

IFCOND CS THEN 

IFB STAFL6 EQ »0 THEN 

READEF «EF.RES 

IFCOND CC THEN 

LET R3 := COMP R3 
ELSE 

LET R3 :s R3 ♦ #1 
ENDIF 
ELSE 

LET R3 := R3 ♦ #1 

ENDIF 

ENDIF 

ENDIF 

JSR PCFIRSTU 
LET R2 :s #0 

WHILE DEVTBL(R5) NE tEND DO 

LET R2 :* R2 ♦ #1 
LET RO :s R5 SHIFT -1 

6PHARD RO.RO 

IFCOND CS THEN 
LET TSSR(R5) (RO) 
LET TSDB(R5) iM)* - «2 

LET TSVCT(R5) := (RO) 



.•UPDATE PASS COUNT WHEN 

MOV 
TRAP 

.•SUPERVISOR IS IN NEW PASS 

BCC 

:ANO 0JA6 WAS NEITHER STARTED 

TSTB 
BNE 

.NOR 

MOV 
TRAP 

.•RESTARTED 

BCS 

;D0 IT 

con 

BR 

50401$: 

;SET 1ST PASS IF NEW PASS AND 

INC 

.•RESTARTING 

50402S: 



BR 

50400$: 

SET 1ST PASS IF NEU PASS AND 

INC 

STARTING 

50403$: 

DO NOT UPDATE IT ON CONTINUE 
50377$: 

OR ON POWER FAIL 

50376$: 

INIT DEVICE POINTER. 

INIT DEVICE COUNTER. 



SEO 0128 

#EF.^EU, 
C$REFG 

50377$ 

STAFLG 
50400$ 

JTEF.RES. 
C$REFG 

50401$ 

R3 

50402$ 
R3 



50403$ 
R3 



50404$: 



R2 



DEVTBL(R 
50405$ 

R2 

R5.R0 
RO 

;GET HARDWARE P TABLE FROM SUPER. 

TRAP C$GPHRD 



CLR 



CMP 
BEQ 

INC 

MOV 
ASR 



;SAVE TSSR ADDRESS. 
;SAVE TSDB ADDRESS. 



BCC 
MOV 



50406$ 
(RO).TSS 



MOV (RO)^.TS 
SUB «2.TSDB( 
:SAVE INTERRUPT VECTOR ADDRESS. 

MOV (RO).TSV 
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AAAAA1 
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SEQ 0129 



SETVEC TSVCT(R5).TS4INT(R5),#INTPRI ;SET UP INTERUPT PROCESSING COND 

MOV *INTPRI. 
NOV TS4INT(R 
MOV TSVCT(R5 
MOV *3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
.-ACTUAL PASSCOUNT UPDATE PER R3 

TST R3 
BEQ 50407$ 



IF R3 NE #0 THEN 
IF R3 LT #0 THEN 



LET PASCNTCRS) :- PASCNT(R5) ♦ #1 
ELSE 

LET PASCNT<R5) #1 
ENDIF 
ENDIF 
ENDIF 

LET RECCNT(R5) »0 
PC.NEXTU 



JSR 
ENDDO 



IF R2 EQ #0 THEN 
PRJNTF fAUORPPf 

DELAY 20. 



50410S: 

50411$ 

50407$ 

50406$ 
; CLEAR RECORD COUNT 

:D0 IT FOR ALL DEVICES. 



TST 
B6E 

INC 

BR 

MOV 



R3 

50410$ 

PASCNT(R 

50411$ 

#1 ,PASCN 



50405$: 

;IF THERE ARE NO UNITS: 



CLR 
BR 



RECCNT(R 
50404$ 



TST 
BNE 



.•PRINT ALL UNITS DROPPED, 

NOV 
NOV 
NOV 
TRAP 
ADD 

:G0 TO SUPERVISOR, WAIT 2 SECONDS 



R2 

50412$ 

#AUDRPN, 
#1,-(SP) 
SP.RO 
C$PNTF 
#4,SP 



BREAK 

DOCLN 
ENDIF 



MOV *20.,(PC 

.WORD 0 

MOV L$DLY,<P 

.WORD 0 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 

BNE .-20 
:G0 TO SUPERVISOR. CHECK TTY. 

TRAP C$BRK 
;D0 CLEAN CODE * ABORT PASS. 

TRAP C$DCLN 
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(4) 
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001533 
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4322 
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(4) 


022016 
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022024 


000402 
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(5) 
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(5) 


022032 
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4323 


022042 






(4) 


022042 


012775 


002324 
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(2) 


022050 


012727 


000040 


(2) 


022054 


000000 




(2) 


022056 


013727 


002116 


(2) 


022062 


000000 




(2) 


022064 


005367 


Mmi 


(2) 


022070 


001375 




(2) 


022072 


005367 


177756 


(2) 


022076 


001367 




4325 


022100 






(6) 


022100 


032775 


000200 


(9) 


022106 


001420 




4326 


022110 






(6) 


022110 


032775 


000100 


(9) 


022116 


001001 




4327 


022120 






(4) 


022120 


000456 




4328 


022122 






(3) 


022122 






4329 


022122 




002536 


(8) 


022122 


016546 


(7) 


022126 


012746 


005213 


(6) 


022132 


012746 


000002 


(3) 


022136 


010600 




(4) 


022140 


104417 




(4) 


022142 


062706 


000006 


4330 


022146 






(4) 


022146 






4331 


022146 






(4) 
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SEQ 0130 



50412$: 



; LOWER CPU PRIORITY TO 0 

NOV «PRI00,R 

TRAP CSSPRI 
:IF ERROR RECOVERY IS EN 

TSTB IREC 

BNE 50413$ 

BIT #AOR,OPF 

BNE 50413$ 
;AND AUTO-DROP NOT CALLED. THEN SET UP F 
; WHILE THERE ARE NORE DEVICES: 
50414$: 

CMP DEVTBL(R 

BEQ 50415$ 
BEGIN COUNTER .-START 3.5 MINUTE COUNTER 
INCR TIME1 FROM *1 TO #25 BY #1 



SETPRI «PRI00 

IFB IREC EQ «0 AND «ADR NOTSETIN OPFLAG THEN 



JSR PC.FIRSTU 

WHILE DEVTBL(R5) NE «END DO 



50420$: 
50417$: 

LET aTSDB(R5) :« «6SCPK ;AND GET UNITS STATUS 
DELAY 32. .'WAIT 3.2 MSEC. 



IF «TS.SSR SETIN aTSSR(R5) THEN 
IF «TS.OFL NOTSETIN aTSSR(R5) THEN 



LEAVE COUNTER 
ELSE 



NOV 
BR 

INC 

CNP 
BGT 

NOV 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

BIT 
BEQ 

BIT 
BNE 



#1,TIM£1 
50417$ 

TINE1 

TINE1.«2 
50421$ 

«GSCPK«a 

#32.. (PC 

0 

L$DLY.<P 
0 

-6(PC) 
.-4 

-2LiPC) 
.-20 

#TS.SSR. 
50422$ 

#TS.OFL. 
50423$ 



.-EXIT COUNTER WHEN UNIT ON LINE 
BR 50416$ 



50423$: 

PRINTF *0FLINM.DEVT8L<R5) .-PRINT UNIT OFF LINE EVERY 10 SEC 



ENDIF 
ELSE 



NOV 
MOV 
NOV 
MOV 
TRAP 
ADD 



50424$: 



BR 



DEVTBL(R 
#OFLINM. 
#2.-(SP) 
SP.RO 
C$PNTF 
«6.SP 



50425$ 
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(3) 


022150 






4532 


022150 




002536 


(8) 


0221 50 


016546 


(7) 


022154 


012746 


023102 


(6) 


022160 


012746 


000002 


(3) 


022164 


010600 




(4) 


022166 


104417 




(4) 


022170 


062706 

VWfc • WW 


000006 

wwwwww 


4333 


022174 






(4) 


022174 






4334 


022174 






(4) 


022174 


012737 


000001 


(5) 


022202 


000402 




(4) 


022204 






(7) 


022204 


005237 


003450 


(5) 


022210 






(5) 


022210 


023727 


003450 


(7) 


022216 


003016 




4335 


022220 






(2) 


022220 


012727 


000310 


(2) 


022224 


000000 




(2) 


022226 


013727 


002116 


(2) 


022232 


000000 




(2) 


022234 


005367 


177772 


(2) 


022240 


001375 




(2) 


022242 


005367 


177756 


(2) 


022246 


001367 




4336 


022250 






(3) 


022250 


104422 




4337 


022252 






(4) 


022252 


000754 




(3) 


022254 






4338 


022254 






(4) 


022254 


000664 




(3) 


022256 






4339 


022256 






C^) 


022256 






4340 


022256 






(6) 


022256 


023727 


003446 


(9) 


022264 


003404 


011552 


4341 


022266 


004737 


4342 


022272 


004737 


012274 


4343 


022276 






(4) 


022276 






4344 








4345 


022276 


004737 


016662 


4346 


022302 






(4) 


022302 


000641 




(3) 


022304 






4347 


022304 






(4) 


022304 






4348 


022304 




003537 


(6) 


022304 


105737 


(9) 


022310 


001026 




4349 


022312 






(3) 


022312 


104431 
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71-5 



PRINTF #NR0VM,DEVTBL(R5) 



50^22$: 



ENDIF 

INCR TinE2 FROM #1 TO #13 BY #1 



NOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



5042SS: 



50427$: 
50426$: 



DELAY 200. 



MOV 
BR 

INC 

CMP 

BGT 



SEQ 0131 



OEVTBL(R 

#NRDYM,- 

#2,-(SP) 

SP.RO 

CSPNTF 

#6,SP 



#1,TIME2 
50426$ 

TIPIE2 



BREAK 
ENDINC 

ENOINC 

END COUNTER 

IF TIMET 6T #25 THEN 



jsR pc.novnsG 

JSR PCTCCI 
ENDIF 



;UAIT FOR UNIT TO BE SET ON-LINE 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 



:ALLOy TERMINAL INTERRUPT 



50430$: 



50421$: 



TRAP 
BR 

BR 



TIME2,#1 
50430$ 

#200., (P 

0 

L$DLY,(P 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 

C$6RK 

50427$ 

50420$ 



JSR PC.NEXTU 
ENDDO 



ENDIF 

IFB PWRFLG EQ #0 THEN 
MEMORY DATAWT 



50416$: 

;IF OFF LINE FOR 3.5 MINUTES 

CMP Tin£1,#2 
BLE 50431$ 

:6ET MESSAGE PACKET 

.•PRINT ERROR AND DROP OFF LINE UNIT 

50431$: 

.REPEAT UNTIL ON LINE OR TIMED OUT. 
;SET UP FOR NEXT UNIT. 



50415$: 
50413$: 



BR 



50414$ 



TSTS PWRFLG 
BNE 50432$ 
.-REQUEST MEMORY FROM SUPER FOR RD/WR BUf 

TRAP C$MEM 
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003416 
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ni 00'^? 

U I \J\JJf 








VH / 




01'?7'?7 


VO/ 




0^27^7 

UOC' J' 


H J / 1 






\o> 




027727 






00201 1 




07?'X44 




C7) 
\ f # 




012746 






012746 






010600 


iL'i 




104417 


IL^ 

\H # 


053 %0 


062706 

wWCv WW 








\ jf 


Ucc JO*f 


1 04444 


LX^L 




















WCC.300 










HjJ t 










1050'?7 




022372 






022372 


012703 

VIC* V J 




022376 


004737 




02240? 




(4) 


022402 


105037 


4361 








022406 






022406 


1 04432 


{3) 


022410 


000104 




022412 


040445 




C22420 


046440 




022426 


047524 




022434 


046101 




022442 


020122 




022450 


020122 




022456 


047045 


4375 


022460 


040445 




022466 


040517 




022474 


046040 




022502 


020122 




022510 


047045 


4376 




022514 


4377 






4378 


022514 




<3) 


022514 




(3) 


022514 


104411 
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INITIALIZE SECTION 



C 11 
7^-6 



SEQ 0132 



003416 003420 
004000 003420 

161056 004000 



022412 
000001 



000004 



002215 

003536 
011502 

003537 



051106 
046505 
020117 
020114 
042122 
043102 

042522 
020104 
051101 
042515 
000 



042505 
020117 
046523 
047506 
053455 
051522 

046055 
047111 
042507 
047515 



MOV RO,DATAW 

LET DATARD :- OATAUT * mTCNT ;SET RD BFR AD 

nOV DATAUT.O 

ADO mTCNT, 

IF aOATAUT LT fDATCNT THEN ;UHEN NOT ENOUGH FREE MEMO AVAILABLE 

CMP aOATAWT, 

BGE 50433S 

PRINTF #MEMOM :UARN OPERATOR 

MO^ #MEMOH,- 

MOV #1.-(SP) 

MOV SP.RO 

TRAP CSPNTF 

ADD #4,SP 

DOCLN ;AND ABORT PASS 

TRAP CSDCLN 

ENDIF ;DIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 

S0433S: 

ENDIF 

50432S: 



LET CHGFLG :B» #0 

LET R3 := fENDFLG 

JSR PCCLRERh 
LET PURFLG iB- «0 



;CLR CHANGE CMD SEO TBL FLAG. 

CLRB 

MOV 

; CLEAR ALL FLAGS. 

; CLEAR THE POUER FAIL FLAG. 

CLRB 



EXIT INIT 

.ASCII /XAFREE KNO TOO SHALL FOR RO-UR BFRSZN/ 



TRAP 
.UORO 



CHGFLG 
#ENDFLG, 

PWRFLG 



CSEXIT 
L10012-. 



L10012: 



.ASCI2 /XARE-LOAD IN LARGER NENOZN/ 

.EVEN 
ENDINIT 



TRAP C$INIT 
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H jO J 












*♦ jO J 






*« jOO 






•» JOf 








MCCJ lo 




t J/ 












•♦J TV 




004737 


H JT 1 








vcc3cc 








076577 


yyi 




001575 




ft?2>S3? 




v*» / 


\1CCJjC 


105037 




vcc? JO 




(7) 


077536 


012746 




077S47 

vC<../*tC 


01 7746 






01 2746 




077552 


012746 


(5) 


022SS6 


104437 


(2) 


022560 


062706 




022S64 


017502 


(4) 


022564 


4395 


022570 




(3) 


022570 


012700 


(3) 


022574 


104436 


^396 


022576 




\ V/ 


022576 


105737 


(9) 


022602 


001423 


4397 


022604 




\ w 


077604 


005265 

VV ^^Vtf 


4398 






(8) 


027610 


016546 


(7) 


022614 


012746 




022620 


012746 


f3) 


072624 


010600 






104417 




077630 


062706 


4399 


077634 




/4) 


077634 


016537 


44nn 


07764? 




r4) 


077647 




f 71 




006200 




077646 






077646 


104451 


4402 


G22650 




(4) 


022650 


000452 


(3) 


022652 




4403 


022652 




(4) 


022652 


012775 


4404 


022660 


004737 


44C5 


022664 
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D 

71-7 



11 



SEO 0133 



,SB1TL AUTO DROP SECTION 



SECTION EXECUTED AFTER THE INIT CODE WHEN "ADR" FLAG IS SET BY OPERATOR 
SECTION CHEKS FOR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 
FROM INTERFACE 



LSAUTO: 



002536 177777 

003540 

000340 
023132 
000004 
000003 

000010 

002466 

000004 

003540 

003320 

002466 
023006 
000002 

000006 

002536 017136 



B6NAUT0 



JSR PCFIRSTU 

WHILE DEVTBL(R5) NE #END DO 



LET TRAPD4 :B- #0 
SETVEC «4«#TRAP4,#PRI07 



.-FIND FIRST UNIT 



50434$: 



CHP 
BEQ 



DEVTBL(R 
S043SS 



;SET VECTOR 4 



CLRB TRAPD4 



LET R2 aTSSR(R5) 
CLRVEC #4 

IFB TRAPD4 NE #0 THEN 



.•ADDRESS TU80 INTERFACE 
.•CLEAR VECTOR AT 4 



LET FTLCHT(R5) := FTLCNT(R5) ♦ fl 
PRINTF #AUTODM,TSSR(RS) 



rav 
nov 

NOV 
NOV 
TRAP 
ADD 

NOV 

NOV 
TRAP 

TST9 
BEQ 

INC 



#PRI07.- 

#TRAP4,- 

f4.-(SP) 

#3,-(SP) 

CSSVEC 

#10.SP 

aTSSR(R5 

«4.R0 
CtCVEC 

TRAPD4 
504 36S 

FTLCNT(R 



LET DROPN := DEVTBLCRS) 
LET RO R5 SHIFT -1 

DODU RO 
ELSE 

LET aTSDB(R5) «GSCPK 



.'PRINT ERROR 

NOV TSSR(R5) 
NOV #AUTOON, 
NOV #2.-(3P) 
NOV SP.RO 
TRAP CSPNTF 
ADD #6.SP 
.•SAVE f OF UNIT TO BE DROPPED. 

NOV DEVTBL(R 
;RO-LOGICAL DEVICE NUNBER 

NOV R5.R0 
ASR RO 
.-DROP THE UNIT: EXEC BGNOU^ENDDU CODE IF 

TRAP CSOODU 



S0436S. 
:SENO GET STATUS CONNAND 



BR 



JSR PC.WSSR .WAIT 
IF UTTS.SSR SETIN aTSSR(RS) THEN 



NOV 



50437$ 
#GSCPK.a 
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(6) 


022664 


032775 


000200 


(9) 


022672 


001423 




4406 


022674 




000100 


(6) 


022674 


032775 


(9) 


022702 


001416 




4407 


022704 




003320 


(6) 


022704 


005265 


4408 


022710 




002536 


(8) 


022710 


016546 


(7) 


022714 


012746 


005213 


(6) 


022720 


012746 


000002 


(3) 


022724 


010600 




(4) 


022726 


104417 




(4) 


022730 


062706 


000006 


4409 


022734 


004737 


017046 


4410 


022740 






(4) 


022740 






4411 


022740 






(4) 


022740 


000416 




(3) 


022742 






4412 


022742 






(6) 


022742 


005265 


003320 


4415 


022746 






(8) 


022746 


016546 


002536 


(7) 


022752 


012746 


023102 


(6) 


022756 


012746 


000002 


(3) 


022762 


010600 




(4) 


022764 


104417 




(4) 


022766 


062706 


000006 


4414 


022772 


004737 


017046 


4415 


022776 






(4) 


022776 






4416 


022776 






(4) 


022fft 






4417 


022776 


004737 


016662 


4418 


023002 






(4) 


023002 


000647 




(3) 


023004 






4419 








4420 


023004 






(3) 


023004 






(3) 


023004 


104461 




4421 






052502 


4422 


023006 


040445 




023014 


051124 


050101 




023022 


020124 


047445 




023030 


116 




4423 


023031 


045 


044501 


023036 


051105 


040506 




023044 


041040 


042101 




023052 


020122 


047516 




023060 


042523 


020124 




023066 


040440 


047502 




023074 


040440 


022504 


4424 


023102 


040445 


047125 


023110 


022440 


030504 



AUTO DROP SECTION 



E 11 



JF «TS.0FL SETIN aTSSR(RS) THEN 

LET FTLCNT(R5) := FTLCNT(R5> ♦ #1 
PRINTF #0FLINM«0EVTBL(R5) 



JSR PC«DROPUA 
END IF 



ELSE 



LET FTLCNr(R5) :* FTLCNT(R5) ♦ #1 
PRINTF «NRDrN,DEVTBL(RS> 



50441 S: 



50440$: 



L10013: 



JSR PCDROPUA 
ENDIF 

ENDIF 

JSR PC«NEXTU 
ENDDO 



ENDAUTO 



INC 
MOV 

nov 

NOV 
MOV 
TRAP 
ADD 



50442$: 
50437$: 

50435$: 



BR 



020123 
040440 
022466 

052116 
042503 
047440 
020124 
047524 
042526 
000116 
052111 
040445 



AUTODM: .ASCII /XABUS TRAP AT X06XN/ 



.ASCIZ /UINTERFACE BAD OR NOT SET TO ABOVE ADXN/ 



NRDYH: .ASCIZ /XAUNIT XDUA NOT RDYXN/ 



SEQ 0134 



BIT 


fTS.SSR, 


BEO 


50440$ 


BIT 


#TS.0FL. 


BEO 


50441$ 


INC 


FTlCNT(R 


NOV 


DEVTBL(R 


NOV 


#0FLINN, 


NOV 


#2. -JSP) 


NOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


#6,SP 


BR 


50442$ 



FTLCNTCR 

DEVTBL(R 

#NRDrN.- 

#2.-(SP) 

SP.RO 

C$PHTF 

f6,SP 



50434$ 



TRAP C$AUTO 
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PAGE 



F 

71-9 



11 



SEO 0135 



4425 
4426 
4427 
4428 
4429 
4430 
4431 
(6) 
4432 
4433 
4434 
4435 



02>116 047040 052117 051040 
023124 054504 047045 000 
023132 



023132 

023132 105237 003540 
023136 000002 



TRAP4: 



.EVEN 

DEVICE BUS TRAP HANDLER 
OUTPUT: TRAP04 BYTE 1: TRAPED AT 4 

0: NO TRAP 



LET TRAPD4 
RTI 



:B= TRAPD4 * #1 



INCB 



TRAPD4 
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/ / Tfi 
•IHJO 












/ LL 1 




1 1 1 "i 




/ LLX 
HHH3 




III! 


Uc 3 1 hU 






1 1 1 K. 




£ t 

AA5c 








4454 


023i4h 


(4) 


023144 


(6) 


023144 


(9) 


023 52 


4455 


023154 




0c31oU 


(5) 


023160 


C 


Uc3 lo*» 


/ / C7 


noil 
Uc310O 




yjcj 1 ' c 


\H/ 




tXi 




•»*• JT 




•iHOw 




(3) 


0231 74 


(3) 


023176 


4472 




4473 




4474 


023200 


(3) 


023200 


(3) 


023200 
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CLEANUP COOING SECTION 

.SBITL CLEANUP COOING SECTION 



SEO 0136 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORHEO 
AT THE END OF EACH PASS. 



BGNCLN 
LSCLEAN:: 



004737 016614 



026527 002536 ^77777 
001410 

004737 011516 

016500 002476 
104436 

004737 016662 
000764 



104432 
000002 



104412 



JSR PCFIRSTU 

WHILE DEVTeL(R5> NE «ENO DO 



JSR PC, USSR 

CLRVEC TSVCT(R5) 



JSR PCNEXTU 
ENDOO 



.•FIND FIRST UNIT. 

50443t: 

CMP 0EVT8l(R 
BEO 50444S 

;WAIT FOR UNIT READY OR TIMEOUT. 

•RELEASE INTERRUPT VECT(»S^FOft *LL^OEV.^ 

TRAP CSCVEC 

:FIND NEXT UNIT. 



50444$: 



BR 



50443S 



LIOOU: 



EXIT CLN 

.EVEN 
ENDCLN 



TRAP CSEXIT 
.WORD LI 0014- , 



TRAP CSCLEAN 



MISCELLANEOUS SECTIONS. 



CZTUVB.P11 1 


LL7A 








LI 7fl 




HH f T 




shOU 




•IMO 1 




SHOC 










Ucicvc 




Ue3cUc 








\JC3C\IC 


(4) 


OcicOc 


(f ) 


fx'ixjni. 




02320O 










1 










Vic JCC*t 


(^) 


n?3?^o 




023232 

VC •■'C 




023234 




023240 


(4) 


023240 


(3) 


023242 


4506 




4507 




4508 


023244 


(3) 


023244 


(3) 


023244 
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SEO 0137 



.SBHL DROP UNIT SECTION 



THE DROP-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN DODU 
MACRO IS CALLED WHILE IDU FLAG IS MOT SET BY OPERATOR 



LSDU: 



010005 
006305 

012765 177774 002536 

013746 017136 

012746 004702 

012746 000002 
010600 
104417 

062706 000006 

000167 
000000 



104453 



B6NDU 

LET R5 :s RO SHIFT 1 

LET 0EVTBL(R5) := #NINUSE 
PRINTF #DROPDn,DR0PN 



;R5 = LOGICAL DEVICE NUMBER X 2. ^ 

MOV R0.R5 
ASL R5 

;SET NOT IN USE FLAG FOR THE DEVICE. 

MOV #NINUSE, 

;PRINT DROP DEVICE HESSA^ ^ 

MOV DROPN.-( 
MOV «OROPDM, 
MOV #2,-<SP) 
MOV SP.RO 
TRAP CfPNTF 
ADO #6.SP 



LlOOIS: 



EXIT 

.EVEN 
ENDOU 



DU 



.yORD 
.yORO 



Li 001 5-2 



TRAP CSOU 
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4511 






4512 






4513 






4514 






4515 






4516 






4517 






4518 






4519 


023246 




(3) 


023246 




4520 






4526 






4527 


023246 




(4) 


023246 


010005 


(7) 


023250 


006305 


4528 


023252 




(4) 


023252 


010065 


4529 


023256 




(3) 


023256 


104442 


4530 


023260 


011065 


(4) 


023260 


4531 


023264 




(4) 


023264 


012065 


(6) 


023270 


162765 


4532 


023276 


011065 


(4) 


023276 


4533 


023302 




(7) 


023302 


012746 


(6) 


023306 


016546 


(5) 


023312 


016546 


(4) 


023316 


012746 


(3) 


023322 


104437 


(2) 


023324 


062706 


4534 


023330 




(4) 


023330 


005065 


4535 






4536 


023334 




(4) 


023334 


000167 


(3) 


023336 


000000 


4548 






4549 






4550 






4551 


023340 




(3) 


023340 




(3) 


023340 


104452 


4552 






4553 


023342 




4554 
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.SB1TL ADD UNIT SECTION 



SEQ 0138 



THE AOD-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. 
'tF.AUNIT" IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 



IF 



LSAU:: 



002536 



002466 

002456 

000002 002456 

002476 

000340 
002516 
002476 
000003 

000010 

003500 



BGNAU 



;R5 = LOGICAL DEVICE NUWER X 2. 

mv R0,R5 
ASL R5 

; STORE UNIT # IN DEVICE TABLE. 

nOV RO,D£VTB 
;GET HARDWARE P TABLE FROM SUPER. 

TRAP CSGPHRD 

;SAVE TSSR ADDRESS. 

HOV (RO).TSS 

;SAVE TSDB ADDRESS. 

my (RO)*,TS 
SUB #2, TSDB ( 
;SAVE INTERRUPT VECTOR ADDRESS. 

NOV (RO).TSV 

SETVEC TSVCT(R5),TS4INT<R5).#INTPRI .SET UP INTERUPT PR0CESSIN6_C0ND 

HOV 

nov 
nov 
wv 

TRAP 
ADD 

LET INTFLG(R5) :* #0 .'CLEAR INTERRUPT FLAGS. ^ ^ 

CLR 



LET R5 := RO SHIFT 1 

LET DEVTBL(R5) RO 
GPHARD RO.RO 

LET TSSR(R5) :« (RO) 

LET TSDB(R5) (RO)* - #2 

LET TSVCT(R5) :« (RO) 



«INTPR1. 

TS41NT(R 

TSVCT(R5 

#3.-(SP) 

CSSVEC 

#10, SP 



L10016: 



EXIT AU 

.EVEN 
ENDAU 

ENDMOD 



.WORD 
.WORD 



INTFLG(R 



JSJHP 
L10016-2 



TRAP C$AU 



MISCELLANEOUS SECTIONS 



CZTUVB.P11 1 


y CC7 




45oo 




y CXO 




y C7A 




y CTl 




y C70 




/ C77 




H3f •» 
















/.C7& 
H5f O 




V Ji 




7 






\JCJJ'*C 






•♦JO 1 




/y ^ 








/ Cfl7 




y j) 
















tL 1 




jOO 




















to/ 




It/ 












y cai 












(«»/ 




(o) 




/ cc^ 
«»5Vj 




/A) 




IQ\ 
t V/ 


UC J*» JH 




n7T£ 7A 






to/ 




n\ 
\f> 




\0/ 


n?XAS? 


yji 


UC j'*jO 


t«»/ 


n^XLAO 
Uc^OU 


1*1/ 




459S 


023466 


(4) 


023466 


4596 


023466 


4597 


023472 


(4) 


023472 


(3) 


023474 
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SEQ 0139 



105037 
105037 

104402 



012702 
004737 
004737 
004737 



026527 
001434 

016502 

062702 

011265 
042765 

026527 
001014 

016546 
016546 
012746 
012746 
010600 
104417 
062706 

004737 
000740 



.TITLE 
•SBTTL 

; TEST 



T1:: 



003523 
003522 



T1.1: 



024200 
024154 
006760 
016614 



002536 177777 

002506 
000012 
002526 

177400 002526 
003260 000001 



002526 
002536 
004056 
000003 



000010 
016662 



HARDWARE TESTS 
TEST 1: BASIC FUNCTIONS. 

TO EXECUTE ALL TU80 FUNCTIONS. 

BGNMOD 
BGNTST 

LET RANDOM :B= #0 
LET EXP60T :6s #0 

6GNSUB 

LET R2 :s #BFSEQO 



;CLR THE RANDOH OPERATIONS FLAG. 

CLRB RANDOM 

;CLR EXPECT BOT FLAG. 

CLRB EXPBO. 
.•SUBTEST 1 - SET CHAR, DRIVE INIT, GET S 

TRAP CSBSUB 

:ADR OF CMD SEQ. 

nOV «8FSEQ0, 

;SET UP Cra> SEQ. 

.•EXECUTE CMD SEQ ON ALL DEVICES. 
:FIND THE FIRST UNIT. 
:UHIL£ THERE ARE MORE DEVICES: 
50445$: 

CMP DEVTBL(R 
B£Q 50446$ 

:GET MSG PACKET ADR. 

nOV NSGPKA(R 
;GET XSTAT2 ADR. _ ^ 

ADD «12.R2 

LET TS4CL(R5) := (R2) CLR.BY #177400 .STORE CODE LEVEL FROM ''JJ^rTW 

BIC #177400. 

IF PASCNT(R5) EQ #1 THEN ;IF THIS IS PASS 1 THEN: 

8NE 50447$ 

PRINTF #C0DEL«.DEVTBL(R5).TS4CL(R5) .PRINT THE TU80 WCROCODE LEVEL 



JSR PC.BFSEO 
JSR PC.EXALL 
JSR PC.FIRSTU 
WHILE DEVTBL(R5) NE #END DO 



LET R2 :- NSGPKA(R5) 
LET R2 :s R2 ♦ #12 



nov 
nov 
nov 
nov 
hov 

TRAP 
ADD 



END IF 

JSR 
ENDDO 



PC.NEXTU 



;FIND NEXT UNIT. 



50447$: 



50446$: 



BR 



TS4CL(R5 
DEVTBL(R 
ffCODELM. 
#5.-(SP) 
SP.RO 
C$PNTF 
flO.SP 



50445$ 



HARDWARE TESTS 
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4598 


023474 




(3) 


A*^TIi T/ 

023474 


4 Ay y AV 
104403 


(3) 


023474 


A599 






A600 


023476 




(3) 


023476 


1 Ay / AO 
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TEST 1: BASIC FUNCTIONS. 



K 11 



LI 0020: 



T1.2: 



LI 0021: 



T1.3: 



024264 
024154 
006760 



L10022: 



T1.4: 



ENDSUB 



B6NSUB 



LET R2 :- «BFSE01 

JSR PCBFSEQ 
JSR PC.EXALL 
LET STAFL6 :B- #0 

ENDSUB 



BGNSUB 



LET R2 #BFSEQ2 

JSR PCBFSEQ 

JSR PC«EXALL 
ENDSUB 



024356 
024154 
006760 



L10023: 



T1.5: 



024430 
024154 
006760 



L 10024 : 



T1.6: 



BGNSUB 



LET R2 :s fBFSEQ3 

JSR PCBFSEO 
JSR PC.EXALL 
ENDSUB 



BGNSUB 



LET R2 := #BFSEQ4 

JSR PCBFSEQ 

JSR PCEXALL 
ENDSUB 



BGNSUB 



SEQ 0140 



TRAP CSESU6 

.•SUBTEST 2 - REWIND. 

TRAP CSBSUB 

;ADR OF CHD SEQ. 

MOV #BfS£Q1. 

;SET UP CMO SEO. 

;EXECUTE CMD SEO ON ALL DEVICES. 
.•CLEAR START FLAG 

CLRB STAFLG 

TRAP CSESUB 
.SUBTEST 3 - URITE/VERIFY. 

TRAP C$6SUB 

;ADR OF CMD SEO. 

MOV «BFSEQ2. 

;SET UP CMD SEQ. 

.•EXECUTE CMD SEO ON ALL DEVICES. 

TRAP CSESU6 
.•SUBTEST 4 - WRITE TAPE MARK. ERASE. 

TRAP CSBSUB 

;ADR OF CMD SEQ. 

MOV #BFSEQ3, 

;SET UP CMD SEQ. 

.•EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 
.•SUBTEST 5 - SPACE FILES. 

TRAP CSBSUB 

;ADR OF CMD SEQ. 

MOV #BFSEQ4, 

; SET UP CMD SEQ. 

.•EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 
.•SUBTEST 6 - SPACE RECORDS. 
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(3) 
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TEST 1: BASIC FUNCTIONS. 



L 11 



LET R2 := «BFSEQ5 



LI 0025: 



T1.7: 



JSR 
JSR 

ENDSU6 



B6NSU6 



LI 0026: 



T1.8: 



LI 0027: 



T1.9: 



PCBFSEQ 
PCEXALL 



LET R2 := «BFSEQ6 



JSR 
JSR 

ENDSU8 



BGNSUB 



PCBFSEQ 
PCEXALL 



LET R2 := #BFSEQ7 



JSR 
JSR 

ENDSU8 



BGNSUB 



PCBFSEQ 
PCEXALL 



LI 0030: 



T1.10: 



L10031: 



LET R2 :- #BFSEQ8 

JSR PCBFSEQ 

JSR PCEXALL 
ENDSU6 



BGNSUB 



LET R2 := #BFSEQ9 

JSR PCBFSEQ 

JSR PCEXALL 
ENDSUB 



SEQ 0141 
TRAP CSBSU6 

:ADR OF CMD SEQ. 

MOV #0FSE05, 

;SET UP CMD SEQ. 

.•EXECUTE CHD SEQ ON ALL DEVICES. 

TRAP CSESUB 
.•SUBTEST 7 - WRITE RFTRV. 

TRAP CSBSU6 

;ADR OF CMD SEQ. 

MOV «BFSEQ6. 

;SET UP CMD SEQ. 

.•EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 
.•SUBTEST 8 - READ REV RETRY. 

TRAP CSBSU6 

:ADR OF CMD SEQ. 

HOV #BFSEQ7. 

:SET UP CMD SEQ. 

.•EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 
.•SUBTEST 9 - READ FWD RETRY. 

TRAP CSBSU6 

:ADR OF CMD SEQ. 

MOV #BFSEQ8. 

;SET UP CMD SEQ. 

.•EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 

.•SUBTEST 10- CLEAN. 

TRAP CSBSU6 

:ADR OF CMD SEQ. 

MOV «BFSEQ9. 

;SET UP CMD SEQ. 

.•EXECUTE CMD SEQ ON ALL DEVICES. 
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WW 1 c 
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000001 

www 1 
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U 1 C r 
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WW I 1 


46M 
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HOOT 
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002322 
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VH/ 
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WW 1 c 
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104001 
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024074 


004737 


015504 




4693 


024100 
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024100 
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000011 


002322 



T1.11: 



L 10032 : 



BGNSUB 



LET R2 X' «BFSE10 

JSR PCBFSEO 
JSR PC.EXALL 
LET SWBFLG :B- #1 

JSR PCEXALL 
LET SWBFLG :B- ITO 

ENDSUB 



T1.12: 



SEQ 0142 
TRAP CIESUB 
.-SUBTEST 11 - UTV SWAPPED DATA BYTES. 

TRAP CSBSU6 

:ADR OF CMD SEQ. 

MOV #BFSE10, 

;SET UP CND SEQ. 
.•WRITE/VERIFY RECORDS 1 AND 2. 
.•ENABLE BYTE SWAPPING. 

nOVB '1 SWBFL 
.•WRITE/VERIFY RECORDS 3 AND 4. 
.•DISABLE BYTE SWAPPING. 

CLRB Sl«FLG 
TRAP CIESUB 



LET R2 DATAWT ♦ #10. 

WHILE R2 NE DATAWT DO ; UNTIL 



SWAB -(R2) 
ENDDO 



LET T1SWB :B= T1SWB ♦ #1 
BGNSUB 

LET CNDWRO x- «RDR 

JSR PCVFEXC 

LET CMDPICT*CP.CNT #12 

JSR PCVFEXC 
LET SWBFLG :B- ITI 

LET CMDPICT+CP.CNT := #11 

JSR PCVFEXC 

LET f«DPKT*CP.CNT #12 

JSR PCVFEXC 
LET CNDWRD #RDF 

JSR PCVFEXC 

LET CMDPKTKP.CNT := #11 



;INIT WRITE BUFFER POINTER. 

nov 

ADD 

10 BYTES HAVE BEEN SWAPPED. 

50450$: 

CMP 
BEQ 



DATAWT, R 
#10., R2 



R2,DATAW 
50451$ 



.-SWAP DATA BYTES IN WRITE BUFFER. 

BR 50450$ 

50451$: 

;SET T1 SWAP BYTES FLAG FOR 'tKDATA" SUB 

INCB T1SUB 

.•SUBTEST 12 - READ SWAPPED DATA BYTES. 

TRAP C$6SUB 

;CMD IS READ REV. 

MOV #RDR,CHD 
;VERIFY ODD LENGTH SWAP (RECORD 4). 
.•CHANGE BYTE COUNT TO 10. 

NOV «12,CMDP 
.VERIFY EVEN LENGTH SWAP (RECORD 3). 
.•ENABLE BYTE SWAPPING. 

MOVB #1, SWBFL 
.•CHANGE BYTE COUNT TO 9. 

NOV #11. CHOP 
.•VERIFY ODD LENGTH SWAP (RECORD 2). 
.•CHANGE BYTE COUNT TO 10. 

MOV «12.CMDP 
.•VERIFY EVEN LENGTH SWAP (RECORD 1). 
;CMD IS READ FWD. 

MOV #RDF.CMD 

.•VERIFY EVEN LENGTH SWAP (RECORD 1). 
.•CHANGE BYTE COUNT TO 9. 

NOV #11.CM0P 
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TEST 1: BASIC FUNCTIONS. 



N 11 



L10033: 



JSR PCVFEXC 
LET SUBFL6 :B= «0 

LET CMDPKT+CP.CNT 

JSR PC.VFEXC 
LET CMDPKT*CP.CNT 



JSR 

ENDSUB 



PCVFEXC 



LET T1SUB :B= »0 



EXIT 



TST 



bEO 0143 

.'VERIFY ODD LENGTH SWAP (RECORD 2). 
.•DISABLE BYTE SWAPPING. 

CLRB SWBFLG 
«12 .-CHANGE BYTE COUNT TO 10. 

MOV #12. CHOP 

.•verify even length swap (record 3>. 
»^^ .-change byte count to 9. 

MOV #11.CW>? 
.VERIFY ODD LENGTH SWAP (RECORD 4). 



TRAP CSESUB 

.-CLEAR T1 SWAP BYTES FLAG 

CLRB TISM 



TRAP CSEXIT 
.WORD L10017-. 
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TEST 1: BASK FUNCTIONS. 



B 12 



SEQ 0144 



SUBROUTINE TO HOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE. 

INPUTS: R2 = FUA OF COWMND SEQUENCE. 

OUTPUTS: 

REGISTERS: 

CALLS: 



BFSEQ: LET R1 i- fCHDSEO 

WHILE (R2) NE «END DO 

LET (RD* := (R2)* 
ENDDO 



:INIT SEO TABLE ADDRESS. 

nov «cm)SEQ« 

;UHILE THERE ARE MORE COMMANDS: 
50452$: 

CMP 
BEQ 

;MOVE COMMANDS TO SEQ TABLE. 

MOV 



LET (R1) := #END 
RTS PC 

BASIC FUNCTION COMMAND SEQUENCE 



8R 

50453$: 

.STORE END OF SEQUENCE CODE. 

MOV 

.•RETURN. 



BFSEOO: .WORD SCH 
200 
1 
0 

DRI 
1 
1 
0 

SCH 
20 
1 
0 

6ES 
1 
1 
0 

SCH 
40 
1 
0 

.WORD END 



BFSEQ1: 



6FSEQ2. 



RWD 
1 

2 
0 

.WORD END 



;SET CHAR. 200. 



;DRIVE INIT. 



;SET CHAR. 20 



:6ET STATUS. 



;SET CHAR. 40. 



.•REWIND TWICE. 



(1) 
(2) 
(3) 
(4) 
(5) 

(6) 



WTV 

DATCNT 

1 



.•WRITE/VERIFY PAT 1. v7) 



(R2).#EN 
50453$ 



(R2)*,(R 
50452$ 

#END. (R1 
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C 12 



SEO 0U5 



4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 



024272 
024274 
024276 
024300 
024302 
024304 
024306 
024310 
024312 
024314 
024316 
024320 
024322 
024324 
024326 
024330 
024332 
024334 
024336 
024340 
024342 
024344 
024346 
024350 
024352 
024354 

024356 
024360 
024362 
024364 
024366 
024370 
024372 
024374 
024376 
024400 
024402 
024404 
024406 
024410 
024412 
024414 
024416 
024420 
024422 
024424 
024426 

024430 
024432 
024434 
024436 
024440 
0?4442 
C24444 



000001 
104105 
004C00 
000001 
000002 
104105 
004000 
000001 
000003 
104105 
004000 
000001 
000004 
104105 
004000 
C00001 
000005 
104105 
004000 
000001 
000006 
104105 
004000 
000001 
000000 
M7777 

100011 
000001 
000001 
000000 
104005 
004000 
000010 
000001 
100411 
000001 
000010 
000000 
100011 
000001 
000001 
000000 
101011 
000001 
000001 
000000 
}Tr777 

10:410 
000002 
000001 
000000 
105010 
000002 
000001 



.WORD 



BFSE03: 



.WORD 



BFSEQ4: 



1 

WTV 
OATCNT 
1 
2 

UTV 
DATCNT 
1 
3 

WTV 
DATCNT 
1 
4 

WTV 
OATCNT 
1 
5 

WTV 
OATCNT 
1 
6 

WTV 
OATCNT 
1 
0 

END 

WTN 
1 
1 
0 

WRT 
DATCNT 
10 
1 

ERS 
1 

10 
0 

WTN 

1 
1 
0 

WTR 
1 
1 
0 

END 

SFR 
2 
1 
0 

SFF 
2 

1 



;WTV PAT 2. 
;WTV PAT 3. 
;WTV PAT 4. 
;WTV PAT 5. 
:WTV PAT 6. 
;WTV PAT 0. 

:WRITE TAPE HARK. 
; WRITE 10 RECORDS. 
;ERASE 10 TIMES. 
; WRITE TAPE MARK. 
;WTn RETRY 



(8) 

(9) 

(10) 

(11) 

(12) 

(13) 

(U) 
(15) 
(16) 
(17) 
(18) 



;SPACE 2 FILES REV. (19) 



.•SPACE 2 FILES FWD. (20) 
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D 12 



SEQ 0146 



4612 
4813 
4814 
^81 5 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
483? 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
<.d55 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 



0?4446 
024450 
024452 
024454 
024456 
024460 
024462 
024464 
024466 
024470 

024472 
024474 
024476 
024500 
024502 
024504 
024506 
024510 
024512 
024514 
024516 
024520 
024522 
024524 
024526 
024530 
024532 
024534 
024536 
02^540 
024542 

024544 
024546 
024550 
024552 
024554 
024556 
024560 
024562 
024564 
024566 
024570 
024572 
024574 

024576 
024600 
024602 
024604 
024606 
024610 
024612 
024614 
024616 



000000 
105410 
000001 
000002 
000000 
105010 
000001 
000002 

uooooo 

177777 

102010 
000001 
000001 
000000 
104010 
000007 
000001 
000000 
104410 
000007 
000001 
000000 
104010 
000001 
000007 
000000 
104410 
000001 
000007 
000000 
177777 

102010 
000001 
000001 
000000 
104005 
004000 
000001 
000001 
105005 
004000 
000001 
000001 
177777 

104401 
004000 
000001 
000001 
105401 
004000 
000001 
000001 
125401 



.WORD 



BFSEQ5: 



.WORD 



6FSEQ6: 



.WORD 



BFSEQ7: 



0 

SFR 
1 
2 
0 

SFF 
1 
2 
0 

END 

RUD 

1 
1 
0 

SRF 
7 
1 
0 

SRR 
7 
1 
0 

SRF 
1 
7 
0 

SRR 
1 
7 
0 

END 

RWD 

1 
1 
0 

URT 

DATCNT 

1 

1 

URR 
DATCNT 
1 
1 

END 
RDR 

DATCNT 

1 

1 

RNR 

DATCNT 

1 

1 

RNF 



; SPACE 2 FILES REV. (21) 



.•SPACE 2 FILES FUD. (22) 



.-REWIND. 



(23) 



; SPACE 7 RECORDS FWD. (24) 



.•SPACE 7 RECORDS REV. (25) 



.•SPACE 7 RECORDS FWD. (26) 



: SPACE 7 RECORDS REV. (27) 



.-REWIND. 
.•WRITE. 
.•WRITE RETRY. 

.-READ REV. 
;READ NEXT REV. 
.•READ NEXT FWD. 



(28) 
(29) 
(30) 

(31) 
(32) 
(33) 
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A868 
4369 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
(3) 
(3) 



024620 
024622 
024624 
024626 

024630 
024632 
024634 
024636 
024640 
024642 
024644 
024646 
024650 
024652 
024654 
024656 
024660 

024662 
024664 
024666 
024670 
024672 
024674 
024676 
024700 
024702 

024704 
024706 
024710 
024712 
024714 
024716 
024720 
024722 
024724 



004000 
000001 
000001 
177777 

moo) 

004000 
000001 
000001 
105001 
004000 
000001 
000001 
125001 
004COO 
000001 
000001 
m777 

101012 
000001 
000001 
000000 
102010 
000001 
000001 
000000 

m77i 

104105 
000012 
000001 
000000 
104105 
000011 
000001 
000000 
177777 



.WORD 



BFSEQ8: 



.WORD 
6FSEQ9: .MORD 



.WORD 



BFSE10: 



024726 
024726 

024726 104401 



L10017: 



.WORD 
.EVEN 

ENDTST 



DATCNT 

1 

1 

END 
RDF 

DATCNT 

1 

1 

RPF 

DATCNT 

1 

1 

RPR 
DATCNT 
1 
1 

END 

CLN 
1 
1 
0 

RWD 
1 
1 
0 

END 

WTV 

12 

1 

0 

WTV 
11 
1 
0 

END 



SEQ 0147 



.READ ^UD. (34) 
:READ PREVIOUS FWD. (35) 
.-READ PREVIOUS REV. (36> 

; CLEAN. (37) 
.REWIND (38) 
.END OF SEQUENCE. 

;WRITE/VERIFY EVEN LENGTH. (39) 
;WRITE/VERIFY ODD LENGTH. (40) 



TRAP CSETST 















r ic 






HARDUARE TESTS 


NACYll 


30(1046) 


12-JUL 


-83 09:44 PAGE 


75 




SEO 0148 


CZTuvB.Pn 12-JUL-83 09:26 
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4910 










.381 TL 


TEST 2: DATA RELIABILITY. 






4911 


















4912 


















4913 










; TEST 


TO CHECK THE DATA RELIABILITY OF 


inc luou. 




4914 










;~~ 








4915 


024730 










B6NTST 






(3) 


024730 








T2:: 








A916 


















4917 


024730 










LET RANDOM :B= #1 


:SIET THE RANDOM OPERATIONS FLAG. 


(4) 


024730 


112737 


000001 








novB 


«1,RAND0 


4918 


024736 










LET EXPBOT :B= #0 


.-CLEAR EXPECT BOT FLAG. 




(4) 


024736 


105037 


003522 








CLRB 


EXPeOT 


4919 


024742 










LET R2 := fDATCNT - #1 


;SET UP THE RECORD LENGTH MASK. 




(4) 


024742 


012702 


004000 








MOV 


fDATCNT. 


(6) 


024746 


005302 










DEC 


R2 


4920 


024750 










LET LENMSK CONP R2 


;ALL0U MAXIMUM BUFFER. 




(6) 


024750 


010237 


003440 








MOV 


R2.LENHS 


(6) 


024754 


005137 


003440 








COM 


LENHSK 


4921 


024760 


004737 


006714 






JSR PC.SETCH 


;CMD 1 - SET CHARACTERISTIC. 




4922 


024764 










IF8 STAFLG NE #0 THEN 


;IF STARTING THEN: 




(6) 


024764 


105737 


003536 








TSTB 


STAFLG 


(9) 


024770 


001404 










BEQ 


50454$ 


4923 


024772 


004737 


006740 






JSR PCSETRW 


;CMD2=REUIND 




4924 


024776 










LET STAFLG :6s #0 


:CLR START FLAG. 




(4) 


024776 


105037 


003536 








CLRB 


STAFLG 


4925 


025002 










ENDJF 


504 54S: 




(4) 


025002 














4926 


025002 










LET (RD* :s #ttTV 


;CH03 = WRITE/ VERIFY. 




(4) 


025002 


012721 


104105 








MOV 


«WTV.(R1 


4927 


025006 










LET (RD* := fDATCNT 


.-SET BRF TO MAX FOR PATTERN GENERATION. 


(4) 


025006 


012721 


004000 








MOV 


mTCNT. 


4928 


025012 










LET R2 :s COMP fRNOPSC 






(6) 


025012 


012702 


177740 








NOV 


fRNOPSC. 


(6) 


025016 


005102 








LET (R1>* :5 R2 


COM 


R2 


4929 


025020 










:31 OPERATIONS. 




(4) 


025020 


010221 










MOV 


R2.(R1)« 


4930 


025022 










LET (RD* :s fRANP 


.•RANDOM PATTERN. 




(4) 


025022 


012721 


000007 








MOV 


fRANP. (R 


4931 


025026 










REPEAT 


.REPEAT TO EOT: 




(3) 


025026 












50455$: 




4932 


025026 










WHILE Rl LT #SEOEND DO 


.-FILL SEQ TBL WITH RANDOM CMOS. 




(4) 


025026 












50456S: 




(6) 


025026 


020127 


003634 








CMP 


R1.#SEQE 


(9) 


025032 


002012 










BGE 


50457$ 


4933 


025034 










LET RANS RANS ♦ RANB 






(6) 


025034 


063737 


003442 








ADD 


RANG.RAN 


4934 


025042 








LET R2 RANS CLR.BY #177741 :R2 = RANDOM # (C - 36). 


RANS,R2 


(4) 


025042 


013702 


003444 








MOV 


(6) 


025046 


042702 


177741 








BIC 


#177741. 


4935 


025052 


004772 


025210 






JSR PC,aRANCMD(R2) 


;SEr UP A RANDOM CMD « BRF. 




4936 


025056 










ENDDO 




50456$ 


(4) 


025056 


000763 










BR 


(3) 


025060 












50457$: 




4937 


025060 










LET (Rl) := #END 


.STORE END OF SEQUENCE CODE IN 


TABLE. 


(4) 


025060 


012711 


1 nm 






MOV 


#EN0,(R1 


4938 


025064 


004737 


006760 






JSR PCEXALL 


:60 EXECUTE ALL CMDS IN SEQUENCE TABLE. 



G 12 

HARDyARE TESTS HACVll 30(1046) 12-JUL-83 09:44 PAGE 75-1 
CZTUVB.P11 12-JUL-83 09:26 TEST 2: DATA RELIABILITY. 



4939 


025070 








LET R1 :s fCMDSEO 


(4) 


025070 


012701 


003544 




UNTIL R2 NE #0 


4940 


025074 








(3) 


025074 


005702 








(6) 


025076 


001753 








4941 


025100 








LET ALLEOT :Bs ALLEOT ♦ #1 


(6) 


025100 


105237 


003532 






4942 


025104 


000240 






NOP 


4943 


025106 


000240 






NOP 


4944 


025110 


000240 






NOP 


4945 


025112 


004/37 


027072 




JSR PC.T5WE0T 


4946 












4947 












4948 












4949 


025116 


004737 


025250 




JSR PC.RANRD 


4950 


025122 








LET CMDSEQ«4 COMP #RNOPSC 


(6) 


0?51 22 


012737 


1 77740 


003550 




(6) 


025130 


005137 


003550 






4951 


025134 








LET CHDSEQ^^U :s CM>SEQ«4 


(4) 


025134 


013737 


003550 


003560 




4952 


025142 








LET (R1) :s #END 


(4) 


025142 


012711 


y77777 






4953 


025146 


004737 


006760 




JSR PCEXALL 


4954 


0?5152 








LET ALLEOT :B- #0 


(4) 


025152 


105037 


003532 






4955 


025156 








LET RPTFL6 :B- #1 


(4) 


025156 


112737 


000001 


003525 




4V3A 


025164 








LET R1 :s #cnDSEQ 


(4) 


025164 


012701 


003544 






4957 


025170 


004737 


006740 




JSR p:«setru 

LET (R1) :s #END 


4958 


025174 








(4) 


025174 


012711 


y77777 






4959 


025200 


004737 


006760 




JSR PC«EXALL 


4960 












4961 


025204 








EXIT TST 


(3) 


025204 


104432 








(3) 


025206 


000174 








4962 













SEO 0149 



;INIT CMD SEO TBL POINTER. 

NOV #CMOSEO. 

.REPEAT UNTIL EOT IS REACHED 

TST R2 
BEO 50455$ 

;FLAG ALL UNITS B EOT 

INCB ALLEOT 



WRITE ONE RECORD BEYOND EOT ON ALL UNIT 
SO THAT SHORTER READ STOP DISTANCE 
SHALL POSITION HEAD IN CLEAN IR6 GAP 
READ REV THAT EXTRA REC TO RE-POSITION 
SET UP READ REV/FUD CMDS. 

# OF RECORDS FOR READ REV. 

MOV fRNOPSC, 
con CMDSEQ14 

# OF RECORDS FOR READ FORWARD. 

MOV CN0SEQ*4 
STORE END OF SEQUENSE CODE IN SEO TABLE 

*«V #END,(R1 
60 EXECUTE READ REV/FWD Of LAST N RECOR 
CLEAR ALL UNITS d EOT FLAG 

CLRB ALLEOT 
REQUEST PERFORMANCE REPORT DURING REWIN 

NOVB #1 ,RPTFL 

INIT SEO TBL POINTER. 

nov #Cm3EQ. 
STORE REWIND IN SEO TBL. 
; STORE END IN SEO TBL. 

NOV #EN0.(R1 
EXECUTE REWIND CHO ON ALL UNITS 



TRAP CIEXIT 
.WORD L10034 
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SEO 0150 



4964 

496S 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

(4) 
4995 

(4) 
4996 

(6) 
4997 

(4) 

(6) 
4998 

(4) 
4999 

(4) 
5000 

(4) 
5001 

(4) 
5002 

(4) 
5003 

(4) 
5004 



025210 
025212 
025214 
025216 
025220 
025222 
025224 
025226 
025230 
025232 
025234 
025236 
025240 
025242 
025244 
025246 



025250 
025250 
025254 
025254 
025260 
025260 
025266 
025266 
025272 
025276 
025276 
025300 
025300 
025304 
025304 
025310 
025310 
025314 
025314 
025316 
025316 
025322 



025336 
025324 
025324 
025324 
025324 
025324 
025324 
025324 
025250 
025250 
025250 
025250 
025250 
025250 
025250 
025250 



012721 104401 

012721 004000 

063737 003444 003442 

013702 003442 

042702 177740 

010221 

012721 000007 

012721 104001 

012721 004000 
010221 

012721 000007 
000207 



RANRD: 



ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST. 



RANCND: RANWV 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 



WRITE/VERIFY. 

WRITE. 

WRITE. 

WRITE. 

WRITE. 

WRITE. 

WRITE. 

WRITE. 

READ. 

READ. 

READ. 

READ. 

READ. 

READ. 

READ. 

READ. 



SUBROUTINE TO SET UP READ COMPIANDS IN SEQUENCE TABLE. 
INPUTS: 



OUTPUTS: 

REGISTERS: 

CALLS: 



R2 



LET (R1)« #RDR 

LET (RD* := fOATCNT 

LET RANB :- RANB ♦ RANS 

LET R2 :» RANB CLR.BY #RNOPSC 



.•STORE READ REV CHD. 

NOV «RDR.(R1 
:SET BRF TO MAX FOR READ RANDOM LENGTHS. 



LET (RD* 
LET {RD* 
LET (RD* 
LET (RD* 
LET (RD* 
LET (RD* 
RTS PC 



s R2 
= #RANP 
' #ROF 

= mrcNT 

= R2 
- «RANP 



NOV 
ADD 

NOV 

BIC 



fOATCNT. 

RANS. RAN 

RANB.R2 
«RNOPSC, 



SET RANDOM « OF OPERATIONS. 

MOV R2.(R1)* 

RANDOM PATTERN. 

MOV «RANP,(R 

STORE READ FUD CMD. 

MOV «RDF.(R1 

SET BRF TO MAX TO READ RANDOM LENGTHS. 

MOV mTCNT. 
SET RANDOM # OF OPERATIONS. 

NOV R2.CR1)* 

RANDOM PATTERN. 

NOV tfRANP.(R 
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SEQ 0151 



5006 






S007 






5008 






5009 






5010 






5011 






5012 


025324 




(4) 


025324 


012721 


5013 


025330 


004737 


5014 


025334 


000207 


5015 






5016 






5017 






5018 






5019 






5020 






5021 






5022 






5023 






5024 






5025 






5026 


025336 




(4) 


025336 


012721 


5027 


025342 


004737 


5028 


025346 


000207 


5029 






5030 






5031 






5032 






5033 






5054 






5035 






5036 






5037 






5038 






5039 






5040 






5041 


025350 




(4) 


025350 


012721 


5042 






5043 


025354 




(6) 


025354 


063737 


5044 


025362 




(4) 


025362 


013702 


(6) 


025366 


042702 


5045 


025372 




(4) 


025372 


010221 


5046 


025374 




(4) 


025374 


012721 


5047 


025400 


000207 


5048 






5049 






5050 






5051 


025402 





SUBROUTINE TO SET UP A WRITE CONHAND IN THE SEQUENCE TABLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



RANWR: LET (RD* #WRT 

JSR PCRANW 
RTS PC 



.STORE WRITE CHD. 

NOV »WRT.(R1 
; STORE BRF, # OF OPERATIONS, PATTERN. 



SUBROUTINE TO SET UP A URITE/VERIFV COMMAND IN THE SEQUENCE TABLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



RANUV: LET (R1)« :» fWTV 

JSR PCRANW 
RTS PC 



; STORE WRITE/VERIFY CMD. 

MOV 4rWTV,(Rl 
.'STORE BRF, # OF OPERATIONS. PATTERN. 



SUBROUTINE TO STORE BRF. # OF OPERATIONS. PATTERN IN COMMAND 
SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 
INPUTS: 
CHJTPUTS: 
RECISTERS: 
CALLS: 



BO 



RANW: LET (R1)4^ :s fDAT'.NT 

LET RANB RANB * RANS 

LET R2 RANB CLR.BY #RNOPSC 

LET (R1)« :- Hi 

LET (R1)« :s #RANP 

RTS PC 

.EVEN 

ENDTST 



:SET BRF TO MAX FOR PATTERN GENERATION. 

MOV #DATCNT. 
;RANDOM BRF WILL BE GENERATED FOR EACH R 

ADD RAMS. RAN 

MOV RANB.R2 
BIC #RNOPSC. 
SET RANDOM # OF OPERATIONS. 

MOV R2.(R1)* 

RANDOM PATTERN. 

NOV #RANP,(R 

RETURN. 
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^^3) 025402 104401 TRAP C$£TST 
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SEQ 0153 



5054 








5055 








5056 








5057 








5058 








5059 








5060 








5061 








5062 








5065 








5064 








5065 








5066 


025404 






(3) 


025404 






5067 


025404 






(6) 


025404 


105737 


003341 


(9) 


025410 


001013 




3068 


025412 






(7) 


025412 


012746 


021112 


(6) 


025416 


012746 


000001 


(3) 


025422 


010600 




(4) 


025424 


104417 




(4) 


025426 


062706 


000004 


5069 


025432 






(4) 


025432 


112737 


000377 


5070 


025440 






(4) 


025440 






5071 








5072 


025440 






(4) 


025440 


105037 


003340 


5073 


025444 






(4) 


025444 


105037 


003523 


5074 


025450 






(4) 


025450 


105037 


A A9^ '^'^ 

003522 


5075 


025454 


004737 


006714 


5076 


025460 


004737 


006740 


5077 


025464 






(4) 


025464 


105037 


003536 


5078 


A^P / ^A 

025470 






(4) 


A'^C / ^A 

025470 


A4 4 

012711 


\77777 


5079 


025474 


AA^ 

004737 


f\f\JL 7^ A 

006760 


5080 








5081 


A^ f P A A 

025500 


AA/ "» T ^ 

004737 


A4 ^ ^ 4 / 

016614 


5082 








5083 








5084 








5085 








^ AA M 

5086 








P AO ■» 

5087 








r AA A 

5088 










0^37U4 






(4> 


025504 






(6) 


025504 


026527 


002536 


(9) 


025512 


001546 




50O0 








5091 


025514 







.SB1TL TEST 3: WRITE AND READ STREAMING TEST. 



T3:j 



THIS TEST STREAM WRITES 7000 RECORDS OF 1000 BYTES EACH. 
DATA IS THEN VERIFIED BY READ REVERSE 7000 RECORDS, FOLLOWED 
BY READ FORWARD THE 7000 RECORDS. THIS PARTICULAR SEQUENCE IS 
PERFORMED TWICE ON EACH UNIT UNDER TEST. ALL STREAMING SPEEDS 
ARE TESTED FOR BOTH READ AND WRITE OPERATIONS. 



BGNTST 

IF6 HERE EQ »0 THEN 
PRINTF #TAPCAP 



LET HERE :Bs »255. 
ENDIF 

LET DOAGIN :B= «0 

LET RANDOM :B- #) 

LET EXP60T :Bs #0 

JSR PC, SETCH 
JSR PC, SETRU 
LET STAFIG :Bs #0 

LET (R1) X- «END 

JSR PC, EXALL 

JSR PC, FIRSTU 



TSTB 
BNE 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOVB 



HERE 
50460$ 

#TAPCAP, 

#1,-(SP) 

SP.RO 

CSPNTF 

#4,SP 

#255.. HE 



50460$: 

.•FIRST OF TWO ITERATONS 

CLRB DOAGIN 
; CLEAR THE RANDOM OPERATIONS FLAG. 

CLRB RANDOM 
.•CLEAR THE EXPECT BOT FLAG. 

CLRB EXP60T 

;SET CHARACTERISTICS. 

;SET REWIND COMPIANO IN BUFFER. 

; CLEAR THE START FLAG. 

CLRB STAFLG 
.-PLACE END FLAG IN SEQUENCE TABLE. 

NOV «EN0,(R1 

;REWIND ALL UNITS. 

;FIND THE FIRST UNIT TO TEW (UUT) 



;WRiTE AND READ EACH UNIT IN TURN BEFORE GOING ON TO THE NEXT. 



WHILE DEVTBL(R5} NE »END DO 



LET BTPT := BTADDR(R5) 



.•WHILE THERE ARE MORE DEVICES: 
50461$: 

CMP 
BEQ 

.•CLEAR BAD SPOT fOUNTER 



DEVTBL(R 
50462$ 
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0P5514 


V WiJjl 


no?550 

vvC^^v 


003520 




0?55?? 










VC J JCC 




15577? 






0?557A 








(L) 


0?55?6 


1 1P737 

1 1 C t J t 


000377 

VVVJ» 1 


003533 
















01P701 

V 1 C > V 1 


003544 




soos 


OP5540 










0P5540 

VC ^ ^HV 


012721 

V 1 C r C 1 


1 04005 




^ wTW 


075544 










0?5544 


012721 

V 1 C r C 1 


001750 

vv i f JW 






0?5550 








(4) 


025550 


012721 

V 1 C r C 1 


015530 

V I ^ ^^V 


















012721 

w 1 C > C 1 


000005 




S0Q9 


OPS SAO 

wC ^ ^Ww 










OPS SAO 


01P711 

V 1 C f 1 1 


^77777 

I r r r r r 














J 1 V 1 


OPSSA^ 

VC ^i^Q** 










OPSSA^ 
VC J OH 


01P701 

V 1 C r V 1 


003544 

VV 




510? 


OPS570 

VC J \i 


004737 

V V*t r ^ r 


007722 

V V r r bC 














5104 


025574 

VC J J f ^ 








(4) 


025574 








(6) 


025574 


023737 


003422 


003424 


(9) 


025602 

VC ^ Wb 


002022 

VVC Vbfc 






5105 










5106 


025604 


004737 


007614 




5107 


025610 

wC Jyj 1 V 


004737 

VV~ 9 -J* 


010576 

V I V^ > V 






0?5614 

VC 1 "t 


004737 

V V~ r V 


011166 

V < 1 1 w 




5109 


025620 

VC ^ VC V 








(6) 


025620 

VC ^VC V 


026527 

VC V^C ' 


002536 

WC ^-jys 


4 ^^^^ y 

177774 


(9) 


0?5626 

VC ^VC V 


001005 

W 1 vv^ 






5110 


025630 

VC V^ w 








(4i 


025630 

VC ^ 


013737 


003424 


00342? 


(6) 


025636 

VC ^v^w 


005337 


003422 




5111 


025642 








(4) 


025642 

Vb t 








5112 


025642 

VC ^V^b 








(6) 


025642 

VC ^W^fc 


005237 


003422 




5113 


025646 








(4) 


025646 


000752 






(3) 


025650 








5114 


025650 








(6) 


025650 

VC> ^y* 


026527 


002536 


1 7777k 


(9) 


025656 


00U53 






5115 


025660 

VCb ^ wv 


004737 


017312 




5116 


025664 








(4) 


025664 

vt ^ 


1 '5037 


003534 




5117 


025670 


00A737 


0U37A 




5118 


025674 








(4) 


025674 


012701 


003544 




5119 


025700 








(4) 


025700 


012721 


104005 




5120 


025704 








(4) 


025704 


012721 


001750 
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TEST 3: WRITE AND READ STREAMING TEST. 



LET aSTPT := *0 
LET STREAM :B= *255. 
IS: LET R1 := «CMDSEQ 

LET (RD* := *WRT 
LET (RD* := #1000. 
LET (RD* :s #7000. 
LET (RD* := #5 
LET (R1) #END 



SEQ 0154 



LET R1 :s «CMDSEQ 
JSR PC, SETUP 

WHILE NCNT LT NCNT1 DO 



JSR PC, CMDAC 
JSR PC. EXCUTE 
jSR PC. GOWAIT 
IF DEV7BL(RS) EQ «NINUSE THEN 



LET NCNT := NCNTI - #1 
ENDJF 

LET NCNT :s NCNT + #1 
ENDDO 

IF DEVTBL(RS) NE «NINUSE THEN 

JSR PC, URITEN 
LET ERSFLG iB- #0 

JSR PC, BORERS 
LET R1 :r fCMDSEQ 

LET (RD* •.' #WRT 

LET (RD* :s #1000. 



MOV 


BTADDR(R 


: START FROM BOT 




CLR 


aBTPT 


;SET FLAG - WE'RE GOING TO STREAM 


MOVE 


#255. , ST 


; SETUP SEQUENCE TABLE ADDRESS 




MOV 


#CMDSEQ, 


: WRITE COMMAND 




MOV 


#WRT.(Ri 


;,000*BVTE RECORD LENGTH. 




MOV 


#1000. , ( 


.•WRITE 7000 RECORDS. 




MOV 


#7000.. ( 


.•GENERATE AND WRITE PATTERN 5. 




MOV 


#5,(R1>* 


;SET END OF SEQUENCE TABLE. 


MOV 


#END.(R1 


;SEQ. TABLE ADDRESS FOR SUBR. 


•SETUP*. 


MOV 


#CMOSEQ. 


.•SETUP THE COMMAND TABLE 





WHILE MORE RECORDS SHOULD BE WRITTEN: 
50463S: 

CMP NCNT.NCN 
BGE 50464S 

.-SAVE ASCII COMMAND FOR ERROR MESSAGE 
.•ISSUE COMMAND TO UNIT. 
:G0 WAIT FOR DONE TO SET 



CMP 
BNE 

MOV 

DEC 



S0465S: 
.•UPDATE THE RECORD COUNT 

I 

;END OF RECORD *D0' LOOP 



INC 



50464S: 

;IF DRIVE DROPPED EXIT 



BR 



CMP 
BEQ 



DEVTBL(R 
50465$ 

NCNTI ,NC 
NCNT 



NCNT 
50463S 



DEVTBL(R 
50466$ 



;URITE A TAPE MARK NOW 
.•DON'T ERASE AFTER BACKSPACE 

CLRB ERSFLG 
.BACKSPACE OVER THE TAPE NARK 
.•RELOAD THE COMMAND TABLE 

MOV #CMDSEQ. 
:NOT REALLY NECESSARY FOR WHAT FOLLOWS 

MOV #WRT.(R1 
:1000-BYTE RECORD LENGTH 

MOV «1000..( 
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5121 








(A) 




V\Ci c\ 


OISS'^0 

V 1 J JJV 


5122 








(4) 


VCJf l*» 


V iCi C 1 


00000s 


5123 


Uc 3 f cv 






(A) 


0?S7?0 


012711 


1 mil 

1 r r r r r 


51 2A 


vCJi C*t 






(4) 




ViCIVt 


WW J^*t"t 


5125 




0047^7 


007722 


5126 


\JCJf JH 






(4) 


0?S7^4 


112737 


000001 

vvvvV I 


5127 


n?S7A? 

VCJI He 






(4) 


VCJI tc 


010S^7 

V 1 VJJi 


wv^*tQC 


5128 


VCJI **u 


0047^7 


015370 


5129 


VCJI JC 






(4) 


VCJI JC 


01 X70S 

V 1 JI VJ 


003462 


5130 


VCJI JO 




002536 


(6) 


VCJI jO 


03AC37 
wcOPc r 


(9) 




001410 
W 1 *ff 1 v 


003340 


5131 




10S1 V 

1 VJ t JI 


5132 


vc Ji 1 C 


001405 




5133 


OPS 774 

VC J! 1 






(4) 


VC JI 1 ^ 


005037 


003422 

WW 


5134 


026000 


004737 


017312 


5135 


026004 


000653 




5136 


026006 






(4) 


026006 

Www WW 






5137 


026006 






(4) 


02600A 






5138 


02A00A 




003422 


(4) 


026006 


005037 


5139 


026012 






(4) 


02601 2 


105037 


003524 

WW^^fc~ 


5140 


026016 




003522 


(4) 


026016 


105037 


5141 


026022 


004737 


016662 


5142 








5143 


026026 






(4) 


026026 

Wfc Wb w 


000626 




(3) 


026030 






5144 








5145 


026030 




003533 


(4) 


026030 

Vb 


105037 


5146 








5147 


026034 






(3) 


026034 


104432 




<3) 


026036 


000002 




5148 








5149 








5150 


026040 






(3) 


026040 






(3) 


026040 


104401 
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TEST 3: WRITE AND READ STREAMING TEST. 

LET (R1)^ :« #7000. 

LET (RD* :a #5 

LET (R1) :s #END 

LET R1 :s #CHDSEQ 

JSR PC. SETUP 
LET VFYFLG :B= #1 

)03524 

LET R5SAVE := R5 

JSR PC. VFYDAT 
LET RS '.- R5SAVE 

IF DEVTBL(R5) NE «NINUSE 

177774 

COMB DOAGIN 
BEQ 2S 
LET NCNT .s JVO 

JSR PC. WRITEM 
BR 1$ 
ENOIF 

ENDIF 

2$: LET NCNT := #0 

LET VFYFLG :Bs #0 
LET EXPSOT :B* #0 
JSR PC. NEXTU 
ENDDO 

LET STPCAM :B- #0 



L10035: 



EXIT 

.EVEN 
ENDTST 



TST 



SEQ 0155 



;FOR 7000 ITERATIONS 
.•DATA PATTERN NUMBER 5 
.•TABLE TERMINATOR 
^OP OF THE TABLE AGAIN 



MOV 
MOV 
MOV 
MOV 



.-SET UP THE COMMAND TABLE 
; ALLOW THE DATA VERIFY 

MOVB 

;SAVE R5 

MOV 

:G0 OFF AND CHECK REV AND FWD. 
.•RESTORE R5 

MOV 

;IF DRWe DROPPED EXIT 

CMP 
BEQ 

.-LOOP CONTROL 
;IF ZERO. DONE 
;KEEP CONTROL HERE 

CLR 

.•WRITE ANOTHER TAPE MARK 
.'AND LOOP 

50467$: 

50466S: 
.•CLEAR RECORD COUNT 



CLR 
CLRB 



.■CLEAR VERIFY FLAG 

.•CLEAR EXPECT BOT FLAG. 

CLRB 

.•GET NEXT UNIT TO TEST (UUT). 



;END OF UUT LOOP 



50462$: 



BR 



97000. A 
#5,<R1)* 
#END.(R1 
#CMDSEQ. 

#1.VFVFL 
R5.R5SAV 

RSSAVE.R 

DEVTBL(R 
50467$ 

NCNT 



NCNT 

VFYFLG 

EXPBOT 

50461$ 



.•CLEAR STREAMING FLAG FOR OTHER TESTS. 

CLRB STREAM 



.•EXIT TEST 
;JUST IN CASE. 



TRAP 
.WORD 



C$EXIT 
L10055-. 



TRAP 



C$ETST 
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5152 
5153 
51-54 
5155 
5156 
5157 
5158 
5159 

(3) 
5160 
5161 

(4) 
5162 

(4) 
5163 

(4) 

(6) 
5164 

(6) 

(6) 
5165 
5166 
5167 

(4) 
5168 

(3) 
5169 

(4) 

(6) 

(9) 
5170 
5171 

(4) 

(3) 
5172 

(4) 
5173 
5174 

(4) 
5175 

(3) 

(6) 
5176 

(6) 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 

(4) 
5185 
5186 

(4) 



wCOwtc 






















000001 


0?60S0 






026050 


105037 


003522 


0P6054 






026054 


012702 


004000 


026060 

w w 


005302 




026062 






026062 


010237 


0C3440 


026066 


005137 


003440 


026072 


004737 


006714 


026076 


004737 


006740 


026102 






026102 


105037 


003536 


026106 






026106 






026106 






026106 






026106 

www ■ 


020127 


003634 


026112 


002003 




026114 


004737 


025324 


026120 






026120 


000772 




026122 






026122 






026122 


012711 


}77777 


026126 


004737 


006750 


026132 






026132 


012701 


003544 


026136 






026136 


005702 




026140 


001762 




026142 






026142 


105237 


003532 


026146 


000240 




026150 


000240 




026152 


000240 




026154 


004737 


027072 
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TEST 3: WRITE AND READ STREAMING TEST. 



.SBTTL TEST 4: WRITE COMPATABILJTY/WRITE UTILITY. 



SEQ 0156 



TEST TO WRITE RECORDS FROM BOT TO EOT. 



T4:: 



BGNTST 

LET RANDOM :Ba M^ 
LET EXPBOT rB^ #0 
LET R2 :s mTCNT - 0^ 

LET LENMSK :- COMP R2 

JSR PC«SETCH 
JSR PC.SETRW 
LET STAFLG :B= #0 

REPEAT 

WHILE R1 LT #SEQEND DO 



JSR PCRANWR 
ENDDO 



LET (R1) :> #END 

JSR PCEXALL 
LET R1 := fCMDSEQ 

UNTl\{[2 NE #0 

LET ALLeIt :B- ALLEOT * #1 

NOP 
NOP 
NOP 

JSR PCTSWEOT 



026160 
026160 
026164 
026170 
0?6170 



105037 003532 
004737 006740 

012711 ^77777 



LET ALLEOT :B- MO 

JSR PC.SETRW 
LET (R1) #END 



SET THE RANDOM OPERATIONS FLAG. 

NOVB #1 ,RANDO 

CLEAR EXPECT BOT FLAG. 

CLRB EXPBOT 
SET UP THE RECORD LENGTH MASK. 

MOV fDATCNT, 
DEC R2 

;ALLOW MAXIMUM BUFFER. 

MOV R2.LENMS 
COM LENMSK 

;CMD 1 = SET CHARACTERISTIC. 

:CMD2=REWIND 

; CLEAR START FLAG 

CLRB STAFLG 

.•REPEAT TO EOT. 

50470$: 

.•WHILE THERE IS MORE ROOM IN SEQ TABLE: 
50471$: 

CMP R1 .#SEQE 
BGE 50472$ 
.•STORE A WRITE CMD IN SEQUENCE TABLE. 

BR 50471$ 

50472$: 

.•STORE END OF SEQUENCE CODE IN TABLE. 

MOV #END.(R1 
.•EXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
:INIT SEQ TBL POINTER. 

MOV #CMDSEQ. 
.•REPEAT UNTIL EOT IS REACHED 

TST R2 

BEQ 50470$ 
;SET ALL UNITS a EOT FLAG 

INCB ALLEOT 



.•WRITE ONE RECORD BEYOND EOT ON ALL UNIT 
:S0 THAT SHORTER READ STOP DISTANCE 
.•SHALL POSITION HEAD IN CLEAN IRG GAP 
.•READ REV THAT EXTRA REC TO RE-POSITION 
.•CLEAR ALL UNITS a EOT FLAG 

CLRB ALLEOT 
.•STORE REWIND IN SEQ TBL. 
.•STORE END IN SEQ TBL. 

MOV «END.(R1 



\ 
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5187 
5188 
5189 
(3) 
(3) 
5190 
5191 
5192 
5193 
(3) 
(3) 
5194 



026174 004737 006760 



026200 
026200 
026202 



026204 
026204 
026204 



104432 
000002 



104401 
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TEST 4: WRITE COMPATABILITY/URITE UTILITY. 

JSR PC.EXALL 

EXIT TST 



L 10036 : 



.EVEN 
ENDTST 



SEQ 0157 

.•EXECUTE REWIND CMD ON ALL UNITS 

TRAP CSEXIT 
.WORD L10036-. 



TRAP C$ETST 



112737 000001 
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5196 
5197 
5198 
5199 
520C 
5201 
5202 

5203 026206 

(3) 026206 
5204 

5205 026206 

(4) 026206 

5206 026214 
(4) 026214 

5207 026222 

5208 026226 

5209 026232 
(4) 026232 

5210 026236 
(4) 026236 

5211 026242 
(4) 026242 

5212 026246 
(4) 026246 

5213 026252 
(4) 026252 

5214 026256 
(4) 026256 

5215 026262 

5216 026266 
(6) 026266 

5217 026272 
(4) 026272 

5218 026276 
(4) 026276 

5219 026302 
(4) 026302 

5220 026306 
(4) 026306 

5221 026312 
(4) 026312 

5222 026316 
(4) 026316 

5223 026322 

5224 026326 
<4} 026326 

5225 

5226 026332 

(3) 026332 

(3) 026334 

5227 

5228 

5229 

5230 026336 

(3) 026336 

(3) 026336 



112737 
004737 
004737 

105037 

012721 

012721 

012721 

012721 

012711 
004737 

105237 

oi?;oi 

012721 

012721 

012721 

012721 

012711 
004737 



000001 
006714 
006740 

003536 

104001 

004000 

077777 

000007 

177777 
006760 

003532 

003544 

104401 

004000 

077777 

000007 

177777 
006760 



105037 003532 



104432 
000002 



1C4401 
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TEST 4: WRITE C0NPATA81LITV/WRITE UTILITY. 



.SbTTL TEST 5: READ COnPATABILITY/READ UTILITY. 



SEO 0158 



*TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 



T5:: 



003523 
003522 



SGNTSr 

LET RANDOM :B- #1 

LET EXPBOT :B- »1 

JSR PCSETCH 
JSR PC.SETRW 
LET STAFL6 :B« «0 

LET (RD* :s «RDF 

LET (M)* :s mrCNT 

LET (RD* := M77777 

LET (RD* #RANP 

LET (RD :s #END 

JSR PCEXALL 

LET ALLEOT :Bs ALLEOT ♦ #1 

LET R1 :s fCNDSEQ 

LET WV* :s fRDR 

LET (RD* := #DATCNT 

LET (RD* := »77777 

LET (RD* := #RANP 

LET (R1) #END 

JSR PC.EXALL 
LET ALLEOT :B- «0 



L10037: 



EXIT 

.EVEN 
ENDTST 



TST 



SET THE RANDOM OPERATIONS FLAG. 

nove jti.rando 

SET EXPECT BOT FLAG. 

HOVB #1,EXPB0 
CMD 1 = SET CHARACTERISTIC. 
rnD2«REWJND. 
CLEAR START FLAG 

CLR6 STAFLG 

CND3 ' READ FORWARD. 

NOV #RDF,(R1 
SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 

nOV fDATCNT, 
SET RECORD COUNT TO MAX FOR WHOLE TAPE. 

HOV 077777,1 

PATTERN = RANDOM. 

MOV #RANP (R 
STORE END OF SEQUENCE CODE IN TABLE.' 

MOV #END,(R1 
EXECUTE ALL CNDS IN SEQ TBL ON ALL UNIT 
FLAG TO ALLOW ALL UNITS AT EOT TO READ 

INCB ALLEOT 
INIT CMD SEQ TBL POINTER. 

MOV fCMDSEQ, 

CMD1 = READ REVERSE. 

MOV #RDR,(R1 
SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 

MOV #DATCNT, 
RECORD COUNT = MAX FOR WHOLE TAPE. 

MOV 977777. ( 

PATTERN = RANDOM. 

MOV #RANP (R 
STORE END OF SEQUENCE CODE IN TABLE.' 

MOV #END,(R1 
GO EXECUTE READ REV. OF ENTIRE TAPE. 
CLEAR ALL UNITS B EOT FLAG 

CLRB ALLEOT 



TRAP CSEXIT 
.WORD L10037-. 



TRAP CSETST 
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5232 










5233 










523A 










5235 










5236 










5237 










5238 










5239 


026340 








(3) 


026340 








5240 










5241 


026340 








(4) 


026340 


105037 


003523 




5242 


026344 








(4) 


026344 


112737 


000001 


003522 


5243 


026352 








(4) 


026352 


113737 


002213 


003527 


5244 


026360 


004737 


006714 




5245 


026364 








(4) 


026364 


013737 


002220 


003546 


5246 


026372 








(4) 


026372 


012702 


002222 




5247 


026376 


004737 


027050 




5248 


026402 


004737 


027050 




5249 


026406 


004737 


027050 




5250 


026412 


004737 


027050 




5251 


026416 


004737 


027050 




5252 


026422 


004737 


027050 




5253 


026426 


004737 


027050 




5254 


026432 








(4) 


026432 


005037 


AA9 < f% 

003452 




5255 


026436 








(4) 


026436 


105037 


003536 




5256 


026442 








(4) 


026442 


012701 


003544 




5257 










5258 




000000 






5259 










5260 


026446 








(4) 


026446 








(6) 


026446 


021127 


1 mil 




(9) 


026452 


001 574 






5261 


026454 


02271 1 


000040 




5262 


026460 


001024 






5263 


026462 








(6) 


026462 


062701 


000002 




5264 


026466 


012137 


003454 




5265 


026472 


022137 


003452 




5266 


026476 


001003 






5267 


026500 








(6) 


026500 


062701 


000002 




5268 


026504 


000760 






5269 


026506 








(6) 


026506 


005237 


003452 




5270 


026512 








(4) 


026512 


012701 


003544 




5271 


026516 


005337 


003454 
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TEST 5: READ COMPATABILI TV/READ UTILITY. 

.SSTTL TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 



SEj 



TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 



T6: 



BGNTST 

LET RANDOM :B« #0 

LET EXPBOT :B» #1 

LET IRE :Bs PIRE 

JSR PCSETCH 

LET CMDSEO+2 CHAR 

LET R2 := #CMDD 



JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 



PCPTCMDS 
PCPTCMDS 
PCPTCMDS 
PCPTCMDS 
PCPTCMDS 
PCPTCMDS 
PCPTCMDS 



LET JLOOP := #0 
LET STAFLG :B= #0 
LET R1 := fCMDSEQ 



CLEAR RAMDOM MODE FLAG. 

CLRB RANDOM 

SET EXPECT BOT FLAG. 

MOVB #1,EXPB0 
MOVE INHIBIT RFC ERROR REPORT FLAG. 

MOVB PIRE. IRE 
CMD 1 = SET CHARACTERISTIC. 
MOVE CHAR CODE FROM P TBL TO SEQ TBL. 

MOV CHAR, CMD 
R2 POINTS TO CMD2 IN SOFT P TABLE. 

MOV #CMDD.R2 
MOVE CMD 2 FROM P TBL TO SEQ TBL. 
MOVE CMD 3 FROM P TBL TO SEQ TBL. 
MOVE CMD 4 FROM P TBL TO SEQ TBL. 
MOVE CMD 5 FROM P TBL TO SEQ TBL. 
MOVE CMD 6 FROM P TBL TO SEQ TBL. 
MOVE CMD 7 FROM P TBL TO SEQ TBL. 
MOVE END CMD FROM P TBL TO SEQ TBL. 
CLEAR JMP CMD LOOP COUNT. 

CLR JLOOP 

CLEAR START FLAG 

CLRB STAFLG 
INIT SEQUENCE TABLE POINTER. 

MOV #CMDSEQ, 



SBRJMP^O 



:ENABLE JMP SUBSTITUTION FOR BR, IF NECESSARY. 



3S: WHILE (R1) NE #END DO 



CMP #JMP.C(R1) 
6NE 6S 

LET R1 := R1 ♦ #2 

MOV (RD^^JLOC 

CMP (R1)^, JLOOP 

BNE IS 

LET R1 := R1 ♦ #2 

BR 3S 

1$: LET JLOOP := JLOOP ♦ #1 

LET R1 :- fCMDSEQ 

2S: DEC JLOC 



.-WHILE THERE ARE CMOS LEFT IN SEQUENCE T 
S0473S: 

CMP 
BEQ 

IS THIS A JUMP CMD? 
BR IF NOT. 
POINT TO BRF. 

ADD 

SAVE BRF (LOCATION). 
HAS LOOP COUNT BE SATISFIED? 
IF NOT, JMP AGAIN. 
IF SO, ADJUST SEQ POUNTER 

ADD 

AND GO TO NEXT COMMAND. 
UPDATE THE LOOP COUNT. 

INC 

INIT CMD SEQ TABLE POINTER. 

NOV 

DECR LOCATION COUNTER. 



(RD.fEN 
50474$ 



#2,R1 



«2,R1 

JLOOP 
fCMOSEQ. 
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TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 



SEQ 0160 



6S: 



7$: 



4S: 



BEQ 3S 

LET R1 := R1 ♦ #10 
BR 2S 

CW> #DLY.C,(R1) 
BNE 4S 

LET R1 := R1 ♦ *4 
LET TIHE2 :* (R1) 
DELAY 10. 



;IF THIS IS THE RIGHT LOCATION TO JW> TO 
;IF NOT. UPDATE SEQ POINTER TO NEXT CMO. 



DEC TIME2 
BNE 7% 

LET R1 := R1 ♦ #4 

JSR PC.SETUr> 

WHILE NCNT LT NCNT1 DO 



JSR PCCNDAC 
JSR PCEXSUB 
IF CHDURD EQ #GES THEN 



ADD 

;D0 IT AGAIN. 
.•DELAY? 
;BR IF NOT. 

;R1 = LOCATION OF N COUNT. 

ADD 

;SAVE N COUNT. 

NOV 

;G0 TO SUPER-WAIT 1 MSEC. 

MOV 

.WORD 

MOV 

.WORD 

DEC 

DEC 
BNE 



; POINT TO NEXT CMD. 



ADD 



#10. R1 

#4.R1 

(RD.TIM 

#10.. (PC 
0 

L»DLY.(P 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 

#4.R1 



;G0 CHECK NEXT CMD. 
;5a SETUP THE COMMAND BLOCK. 
.•WHILE THERE ARE RECORDS REMAINING: 
50475S: 

CMP NCNT.NCN 
BGE 50476S 
STORE CMD ASCII IN ERROR MSG. 
ISSUE CMD TO ALL. AWAIT INTS. CHECK STATU 
IF CMD IS GET STATUS THEN: 

CMP CMDWRD.# 
BNE 50477S 
;PRiNT EXTENDED STATUS HfcGiSTERS. 



50477$: 

.•CHECK HALT AFTER EACH CMD FLAG. 
;SET ALL UNITS AT BOT/EOT. 

MOV 

;FIND FIRST UNIT. 



JSR PC.PRXSr 
END IF 

JSR PCCKHAE 
LET R2 :s #1 

JSR PC.FIRSTU 

WHILE DEVTBL(R5) NE #END DO :WHILE THERE ARE MORE UNITS: 

'50500$: 

CMP 
BEQ 

IF #M0D.C0 SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN 

EIT 
ciEQ 

IF «X0.BOT NOTSETIN E0TFLG(R5) THEN 



#1.R2 



LET R2 #0 
END IF 
ELSE 



DEVT6L(R 
50501$ 

«M0D.C0. 
50502$ 
BOT THEN: 
BIT #X0.BOT. 
BNE 50503$ 
.•CLEAR EOT /BOT FLAG. 
CLR R2 



;IF NOT A 



50503$: 

.•ELSE IF CMD IS NOT REVERSE: 
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026722 
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026724 
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026724 








(6) 
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nonnoi 
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(8) 
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(6) 


026734 


032737 


000001 

www wV 1 


003430 


(9) 


026742 


001001 






(6) 


026744 
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5302 


026744 








(4) 


026744 


00S002 






5303 


026746 








(4) 


026746 
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026746 








(4) 


026746 








5305 


026746 


004737 


016662 

W ■ WWWfc 




5306 


026752 






(4) 


026752 


000746 

WW ■ 9W 






(3) 


026754 








5307 


026754 








(6) 


026754 


020227 


000001 

WWWWW 1 




(9) 


026760 


001016 






5308 


026762 








(4) 


026762 


013737 


003422 


A A9 J A# 

003424 


(6) 


026770 


005237 


003424 




5309 


026774 








(6) 


026774 


105237 


003532 




53i0 


A^9AAA 

027000 








(6) 


027000 


023727 


003436 


AAA AAA 

000002 


(9) 


A ^ 9A A ^ 

027006 


001002 

WW t WWb 






5311 


027010 


004737 


027072 

Wb ' Wt b 




5312 


027014 








(4) 


0270U 








5313 


027014 








(4) 


027014 


000402 






(3) 


027016 








5314 


027016 








(4) 


A^9A4 A 

027016 


105037 


003532 




5315 


027022 








(4) 


027022 








5316 


027022 








(6) 


A A 9 A A A 

027022 


005237 

WW ^ ■ 


003422 




5317 


027026 








(4) 


027026 


013737 


003430 


003434 


5318 


A A 9 A 9 « 

027034 








(4) 


A A9A9 r 

027034 


000671 

www • 






^ 9 \ 

(3) 


A A9A9^ 

027036 








5319 


A A9A9^ 

027036 


004737 


015370 




5320 










5321 










5322 


027042 












000601 






(3) 


027044 








5323 










5324 




m777 






5325 











BR 



SEQ 0161 
50504f 



50S02S: 

IF «X0.EOT NOTSETIN E0TFL6(R5} OR 4rCMD.C0 NOTSETIN CMDWRD THEN 

BIT #X0.EOT, 

BEQ 50505S 

SIT #CMO.rO, 
BNE 50506S 

50505$: 

;IF NOT AT EOT OR NOT A NOTION CMD THEN- 
; CLEAR EOT/BOT FLAG. 

CLR R2 



LET R2 :s #0 
END IF 
ENDIF 



JSR PCNEXTU 
ENDDO 



.•FIND NEXT UNIT 



50506S: 
50504S: 



IF R2 EQ #1 THEN 
LET NCNT1 NCNT ♦ #1 



BR 50500$ 

50501$: 

;IF ALL UNIT ARE AT EOT/BOT THEN: 

CMP R2,#1 
BNE 50507$ 
;FORCE TERMINATION OF COMMAND. 

MOV NCNT.NCN 
INC NCNT1 

LET ALLEOT :Bs ALLEOT * «1 .-FLAG ALL UNITS AT EOT/BOT TO ALLOW VER 

INCB ALLEOT 

IF CNDL6 EQ #2 THEN ;WHEN WRITING IS CURRENT COMMAND 

CMP CMDLG,«2 
BNE 50510$ 

JSR PCTSWEOT ;60 WRITE/READ REV ONE RECORD BEYOND EOT 

ENDIF 

50510$: 

ELSE 

BR 

50507$: 

LET ALLEOT :B- #0 ;WHEN NOT ALL iEOT, CLEAR FLAG 

CLRB 

ENDIF 

50511$: 

LET NCNT :s NCNT * #1 .-UPDATE RECORD COUNT. 

INC 

.•SAVE PREVIOUS COMMAND WORD. 

MOV 



50511$ 
ALLEOT 



LET PCMDUD CMDWRD 
ENDDO 



BR 



NCNT 

CMDWRD. P 
50475$ 



JSR PC.VFYDAT 
ENDDO 



50476$: 

:IF LAST CMD WAS A WRITE VERIFY. THEN 60 
.•VERIFY THE LAST N RECORDS OF DATA. 



BR 



$BRJMP=-1 



50474$: 

.-TURN OFF JMP SUBSTITUTION (SPMACJ CONTROL. ONLY). 



50473$ 
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TEST 6: EXFCUTE OPERATOR SELECTED COMMAND SEQUENCE. 



EXIT 



TST 



TRAP 
.WORD 



SEQ 0162 



CSEXIT 
Li 0040- . 
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5329 






5330 






5331 






5332 






5333 






533A 






5335 






5336 






5337 


027050 




(4) 


027050 


012203 


(6) 


027052 


005303 


(8) 


027054 


006303 


5338 


027056 




(A) 


027056 


016321 


5339 


027062 




(4) 


027062 


012221 


5340 


027064 




(4) 


027064 


012221 


5341 


027066 




(4) 


027066 


012221 


5342 


027070 


000207 


5343 






5344 






5345 






5346 






5347 






5348 






5349 






5350 


027072 


000240 


5351 


027074 


000240 


5352 


027076 


004737 


5353 


027102 


004737 


5354 






5355 


027106 




(4) 


027106 


013737 


5356 


027114 




(4) 


027114 


012737 


5357 


027122 




(4) 


027122 


012737 


5358 


027130 


013737 


(4) 


027130 


(6) 


027136 


042737 


5359 


027144 




(4) 


027144 


013737 


5360 


027152 




(4) 


027152 


013737 


5361 


027160 


004737 


5362 


027164 


004737 


5363 


027170 


004737 


5364 


027174 


000207 


5365 






5366 


027176 




(3) 


027176 




(3) 


027176 


104401 


5367 


027200 





003646 



007254 
017222 



003430 

104401 

0000G4 

003430 
004000 

002314 

003420 
007614 
007254 
017222 
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TEST 6: EXECUTE OPERATOR SELECTED COMNAMD SEQUENCE. 



SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
THE COMMAND SEQUENCE TABLE. 

INPUTS: R2 ' POINTER TO SOFT 'V TABLE 

OUTPUTS: 

REGISTERS: R3. 
CALLS: 



PTCMDS: LET R3 := (R2)* - *1 SHIFT +1 

LET (RD* := CM0TBL(R3) 
LET (RD* t- (R2)* 
LET (RD* := (R2)* 
LET (RD* := (R2)* 
RTS PC 



;R3 = COMMAND TABLE INDEX. 

MOV 
DEC 
ASL 

.-MOVE COMMAND WORD. 

MOV 

;MOVE # OF BYTES. 

MOV 

.-MOVE « OF OPERATIONS. 

MOV 

;MOVE PATTERN CODE. 

MOV 



SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: CMDAC.EXSUB.CKHAE 



T5WE0T: NOP 
NOP 



003434 

003430 

0C3436 

002314 
002314 

003432 

002316 



JSR PC«EXSUB 
JSR PCCKNAE 

LET PCMDWD :s CMDWRD 

LET CMDWRD «RDR 

LET CMDLG :• «4 



.•WRITE ONE RECORD BEYOND EOT 
:S0 THAT READ SHORTER STOP DISTANCE 
.•SHALL POSITION HEAD IN CLEAN HG GAP 
.REPOSITION TAPE 



.•BEFORE EXTRA RECORD 
;6Y READING REVERSE 



L10040: 



LET CMDPKT CMDWRD CLR.6Y fBRF.C 

LET CMDSAV := CMDPKT :THAT RECORD TO ALLOW 

LET CMDPKT^CP.ADL DATARD .-NEXT COMMAND IN THE 

JSR PC.CMOAC .-TABLE TO BE EXECUTED 

JSR PC.EXSUB 

JSR PC.CKHAE 

RTS PC 

.EVEN 

ENDTST 

ENDMOD 



MOV 

MOV 

MOV 

MOV 
BIC 

MOV 

MOV 



SEQ 0163 



{R2)*.R3 

R3 

R3 

CMOTBLCR 
{R2)*,(R 
(R2)*.(R 

(R2)*,(R 



CMDWRD. P 

«RDR.CMD 

#4, CMDLG 

CMDWRD. C 
«BRF.C.C 

CMDPKT. C 

DATARD. C 



TRAP 



CSETST 



027200 
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5370 
5381 
5382 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5A00 
5401 
5402 
5403 
(3) 
(3) 
5404 
5410 
(4) 
(4) 
(4) 
(4) 
5411 
fs4) 
(4) 
(4) 
(4) 
(4) 
5412 
5413 
(7) 
5414 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
(2) 
(3) 



027200 
027200 
027202 

027202 
027202 
027204 
027206 
027210 
027212 
027212 
027214 
027216 
027220 
027222 

027224 
027224 



000024 



000031 
027226 
160002 
177564 

001032 
027243 
000777 
000060 
000776 



013004 
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.TllLE PARAMETER CODING 

.SBTTL HARDWARE PARAMETER CODING SECTION 

BGNMOD 

^THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



SEQ 0164 



LSHARD: 



BGNHRD 



GPRMA TS4ADR.0.0J 60002 J77564,YES 



GPRMD TS4VCT,2.0.777,60.776.YES 



.WORD L10C41-LSH 



.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



TSCODE 
TS4ADR 
TSLOLIM 
TSHILIM 

TSCODE 
TS4VCT 
777 

TSLOLIM 
TSNILIM 



027226 051524 051123 040440 
027243 126 041505 047524 



027252 
027252 



EXIT HRD 



.NLIST BEX 

TS4ADR: .ASCIZ /TSSR ADDRESS/ 

TS4VCT: .ASCIZ /VECTOR/ 

.LIST BEX 

.EVEN 



.WORD TSCODE 



ENOHRD 



.EVEN 



L10041: 
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SEQ 0165 



5430 






5431 






5432 






5433 






5434 






5435 






5436 






5437 






5438 






5439 






5440 






5441 


027252 




(3) 


027252 


000504 


(3) 


027254 




5442 






5449 






5450 


027254 




(4) 


027254 


000130 


(4) 


027256 


030024 


(4) 


027260 


000001 


5451 


027262 




(4) 


027262 


000130 


(4) 


027264 


030043 


(4) 


027266 


000400 


5452 


027270 




(4) 


027270 


001130 


(4) 


027272 


030072 


(4) 


02727/, 


000001 


5453 


027276 




(4) 


027276 


001130 


(4) 


027300 


030116 


(4) 


027302 


000400 


5454 


027304 




(4) 


027304 


002130 


(4) 


027306 


030140 


(4) 


027310 


000001 


5455 


027312 




(5) 


027312 


004024 


5456 


027314 




(4) 


027314 


002130 


(4) 


027316 


030161 


(4) 


027320 


000400 


5457 


027122 




(4) 


027322 


003130 


(4) 


027324 


030206 


(4) 


027326 


000001 


5458 


027330 




(4) 


027330 


003130 


(4) 


027332 


030231 


'4) 


027334 


000400 


5459 


027336 




(4) 


027336 


004130 


(4) 


027340 


030262 


(4) 


027342 


000001 


5460 


027344 




(4) 


027344 


004130 



.SBITL SOFTWARE PARAMETER CODING SECTION 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BGNSFT 



LSSOFT:: 

GPRML CLRM.OJ.YES 

GPRML RRVM,0,400,YES 

GPRML HAEM,2,1.YES 

GPRML RCVERM.2.400.YES 

GPRML IRECM,4J,YES 

XFERT NEXTSP 

GPRa BADTM,4,400,YES 

NEXTSP: GPRML DINTM.6J . YES 

GPRML IREM,6,400,YES 

GPRML RAMM, 10.1, YES 

GPRML CHGMJ0,400,YES 



.WORD L10042-LIS 



.WORD 


T$CO0£ 


.WORD 


CLRM 


.WORD 


1 


.WORD 


T»C00t 


.WORD 


RRVM 


.WORD 


400 


.WORD 


T»COPC 


.WORD 


HAcH 


.WORD 


1 


.WORD 


T>CUDE 


.WORD 


RCvERn 


.WORD 


400 


.WORD 


1 •lUDc 


.WORD 


I RE CM 


.WORD 


1 


.WORD 


T$C00E 


.WORD 


T$CODE 


.WORD 


BADTM 


.WORD 


400 


.WORD 


T$COOE 


.WORD 


DINTM 


.WORD 


1 


.WORD 


T$CODE 


.WORD 


I REM 


.WORD 


400 


.WORD 


T$C0DE 


.WORD 


RAMM 


.WORD 


1 


.WORD 


T$C0DE 
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UUUhUU 
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1 07(\LL 
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f\07X^L 

\JCl JJH 




(L ^ 


Uc 1 JJH 


UUOUjc 


<L\ 
\Hi 


Uc ' JJO 


VJU JcU 


iL\ 


Uc ' jOU 


UUUjf 1 


(L ^ 
KH I 


Met jOc 


uuuuuu 






nnn777 

UUU> f f 


jhOj 


Uc r OOO 




IL > 
VH / 




UU' UJC 


\** } 


Uc f J'U 


U jUjH J 


tL\ 


Ucf J' c 


UwUUjf 


IL^ 


Uc» jIH 


UUUUU 1 


IL \ 
V*» / 


n37^7/» 
Uc' J» 0 


UUUUjj 




Ucf hUU 






Uc »*»UU 


Al AACP 
U 1 UU3c 


IL^ 


Ucf *»Uc 




IL \ 


Ucf HUH 


1 77777 

1 1 1 f f f 


IL t 


Uc ' hUO 


UUUUU 1 


IL ^ 


Uc ' H 1 U 


UUHUUU 




Uc > H 1 C 




(L) 

\H / 


n57A15 
wC > H 1 C 


01105? 


KHZ 


UC f H 1 H 




KHZ 


uc r H 1 D 


177777 

1 f f f f f 




Ucr HCU 


000001 

UUUUU 1 


KHZ 


Uc ' HCC 


077777 




uc ' HcH 






uc ' HCH 


01P0S? 

U 1 CKZJC 




uc r HCU 


O^O^OS 

UJUHU^ 


KHZ 


vCI HJU 


nnnoi 7 

UUUU 1 r 


IL\ 
KHZ 


UC» HjC 


nonnoo 

\Z\Z\^^JKZKZ 


KHZ 


KZCfHJH 


00001 0 

KZvMKZ 1 U 


jHOf 


UCf HJO 




KHZ 


uc 1 Hjw 


01^05? 

U 1 JvJC 


KHZ 


uc » HHv 


0?0&?0 


KHZ 


wC • HHC 


0000^7 

UUVU J » 


KHZ 


0P7444 

uc » HHH 


000001 

UUUvU 1 


KH Z 


Uc » HHO 


0000^^ 

UUUUJJ 


JHOO 


uc ' HJ\Z 




KHZ 


Uc r H JU 


01405? 

V 1 HWC 


KHZ 


Uc ' HjC 


0^0^5^ 


KHZ 


KZC ' HjH 


1 77777 

1 r r r r r 


KHZ 


Uc ' HJO 


vvvvU 1 


KHZ 


KZC ' HOU 


vv*tWv 




KZC f HOC 




KH / 


uc ' HOC 




KHZ 


KZC • HOH 




KHZ 


uc f "fOO 


1 77777 

\ r f f f ' 


(4) 


027470 


000001 

w www ■ 


(A) 


027472 


077777 


5470 


027474 




(4) 


027474 


016052 


(4) 


027476 


030405 


(4) 


027500 


000017 
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SEQ 0166 



XFERF ENDSP1 

GPRHD CHARM,14.O.377.0.777.yES 



GPRMD CMD2MJ6.D,37J,33,YES 



GPRMD BPCRM.20.D,-1J.DATCNT,yES 



GPRMO NUMBM,22.D,-1,1.77777.Y£S 



GPRMD PATTN,24,DJ7,0J0,YES 



GPRMD CMD3M,26,D,37«1.55,YES 



GPRMD BPCRM,30,D«-1.1.DATCNT,YES 



GPRMD NUMBM.52,D. -1.1. 77777. YES 



GPRMD PATTM.34.D,17.0.10.Y£S 



.WORD 


CHGM 


.WORD 


400 


.WORD 


TSCODE 


.WORD 


TSCODE 


.WORD 


CHARM 


.WORD 


377 


.WORD 


TILOLIM 


.WORD 


TSHILIM 


.WORD 


TSCODE 


.WORD 


CTOcM 


.WORD 


5f 


.WORD 


TSLOLIM 


.WORD 


TSHILIM 


.WORD 


TSCODE 


.WORD 


BPCRM 


.WORD 


-1 


.WORD 


TSLOtln 


.WORD 


TSHILin 


.WORD 


TSCODE 


.WORD 




.WORD 




.WORD 


TCI m ffM 


.WORD 


TAiiffI 111 


.WORD 


TSCODE 


.WORD 


PATTR 


.WORD 


1 f 


.WORD 


T#l Al fit 


.WORD 


Tdiffi fii 

TSHlLin 


.WORD 


TSCODE 


•UDRD 


CMDjH 


.WORD 


3f 


ft tf\AI\ 

.WORD 


T#l fU f •■ 


.WORD 


TCUffl tM 

T»HILIn 


.WORD 


TSCODE 


ft ^\f%f\ 

.WORD 


BrCRW 


.WORD 


•1 


.WORD 


TSLuLin 


.WORD 


TSHILIn 


.WORD 


TSCODE 


.WORD 


NUnon 


.WORD 


-1 


unon 

. WUfW 


1 9LUL 1 n 


.WORD 


TSHILIM 


.WORD 


TSCODE 


.WORD 


PATTH 


.WORD 


17 
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SEQ 0167 



(4) 


027502 


000000 


(4) 


027504 


000010 


5471 


027506 




(4) 


027506 


017052 


(4) 


027510 


030426 


(4) 


027512 


000037 


(4) 


027514 


000001 


(4) 


027516 


000033 


5472 


027520 




(4) 


027520 


020052 


(4) 


027522 


030353 


{4) 


027524 


1 77777 


(4) 


027526 


000001 


(4) 


027530 


004000 


5473 


027532 




(4) 


027532 


021052 


(4) 


027534 


030365 


(4) 


027536 


y77777 


(4) 


027540 


000001 


(4) 


027542 


077777 


5474 


027544 




(4) 


027544 


022052 


(4) 


027546 


030405 


(4) 


027550 


000017 


(4) 


027552 


ooocco 


(4) 


027554 


000010 


5475 


027556 




(4) 


027556 


023052 


(4) 


027560 


030434 


(4) 


027562 


0O0O37 


(4) 


027564 


000001 


(4) 


027566 


000033 


5476 


027570 




(4) 


027570 


024052 


(4) 


027572 


030353 


(4) 


027574 


4 ^^^^^ 

\77777 


(4) 


027576 


000001 


(4) 


027600 


004000 


5477 


027602 




(4) 


027602 


025052 


(4) 


027604 


030365 


(4) 


027606 


1 77777 


(4) 


027610 


000001 


(4) 


027612 


Q77777 


5478 


027614 




(4) 


027614 


026052 


(4) 


027616 


030405 


(4) 


027620 


000017 


(4) 


027(i22 


AAA AAA 

000000 


(4) 


027624 


000010 




Ocfoct 


002004 


C5) 


027626 


54i;0 


027630 




(5) 


027630 


075004 


5481 


027632 


027052 


(4) 


027632 









unon 


TCl ni TM 








unpn 






GPRnD 




.WORD 


TfCODE 










uosn 










LirtDn 

• WUnl' 


77 

J • 










1 9LUL in 








unon 


riuti IM 




GPRnD 


BPCRn,*U#D#-l ,1 #DAICWI »Tts 


.WORD 


T$COD£ 










unDn 

• HUnl' 




















unon 


T<i ni IM 

1 9LUL in 








unon 


TtUtI TM 




G''RnP 


kliiMOM n .1 1 77777 VFC 


.WORD 


TSCOOE 










• HUKI/ 


MMRM 








unon 


1 








unon 


rd m IM 










T<UII IM 




GPRnD 




.WORD 


TSCODE 










unon 










. WUnl/ 










unon 










• WUIW 






orKnD 




WORD 


TSCOOE 










• MUnb 










un&a 

•MUnV 


»7 




















Tttlll IM 




GPRnD 






TSCOOE 




WORD 










QproM 

Or tiin 








unpn 












TSI n IM 








ufHin 


TSUII IM 




urKnu 


ftiUMfiM ^9 n •I 1 77777 VF< 




TSCOOE 




.WORD 








UfWD 










unofi 










• WUnIr 


TSI 01 IM 










TSHILIM 




/•QDian 
urMnu 


DATTM n 17 0 10 VFC 
rAl in,3*»,u. If , iu«ics 


.WORD 


TSCQDE 










.WORD 


PATTM 








.WORD 


17 








WORD 


tslolim 








.WORD 


TSHILIM 




vceo 




.WORD 


TSCODE 




ENDSP1 : 


XFER 


ENDSP 


.WORD 


TSCQDE 


ENDSP2: 


GPRMD 


CH06«.56.D,37/I,33,YES 


.WORD 


TSCOOE 
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SEQ 0168 



(4) 


027634 


030442 


(4) 


027636 


A A A A 

000037 


(4) 


027640 


A AM A A4 

000001 


(4) 


027642 


000033 


5482 


027644 




(4) 


027644 


a9 A AP 

030052 


(4) 


027646 


A V A V r 9 

030353 


(4) 


027650 


}77777 


(4) 


02765<r 


A A A AA4 

000001 


(4) 


027654 


0040<j0 


5483 


027656 




(4) 


027656 


A94 AP'% 

031052 


(4) 


027660 


030365 


(4) 


027662 


« ^^^^^ 

1 77777 


(4) 


027664 


AAAAA4 

000001 


(4) 


027666 


077777 


5484 


027670 




(4) 


027670 


AV*^ AP t 

032052 


(4) 


027672 


A V A ^ AP 

030405 


(4) 


027674 


AAAA4 ^ 

00001 7 


(4) 


027676 


A AAAA A 

000000 


(4) 


027700 


A AAA4 A 

000010 


5485 


027702 






OcffOd 


ATTAO 

033052 


(4) 


027704 


A7Ay CA 

030450 


(4) 


02f f 06 


AAAA77 

000037 


(4) 


027710 


AAAAA1 

000001 




027712 


000033 


5486 


A*) / 

027714 




(4) 


027714 


AT/ AC^ 

034052 


(4) 


027716 


030353 


(4) 


027720 


\77ff7 


(4) 


027722 


A A AAA 4 

000001 


(4) 


027724 


f\f\t AAA 

004000 


5487 


A*177*l^ 

027726 




(4) 


A^77*5^ 

027726 


035052 


(4) 


027730 


030365 


(4) 


A^T7T*5 

027752 


1 77777 

\7ffff 


(4) 


027754 


AAAAA1 

000001 


(4) 


027736 


A77777 

Of III 1 


5488 


027740 




(4) 


A 177/ A 

027740 


A1XACO 

036052 


(4) 


027742 


f\Tf\l AC 

030405 


(4) 


027744 


AAAA1 7 

00001 7 


(4) 


027746 


AAAAAA 

000000 


(4) 


027750 


000010 


5489 


027752 




(4) 


027752 


AT7ACO 

037052 


(4) 


027754 


ATA/ CZ. 

030456 


(4) 


027756 


AAAAT7 

000037 






nnn<vti 

UUUUU 1 


(4) 


027762 


000033 


5490 


027764 




('i> 


027764 


040052 


(4) 


027766 


030353 


(4) 


027770 


\77m 



GPRMD BPCRN.60,D,-M,0ATCNT«VES 



GPRMD NUNBN,62,D,-1,1.77777,YES 



GPRHO PATTM,64,0J7,0,1w.YtS 



6PRND CND7N,66,0,37J,33,YES 



GPRMD BPCRN,70,D,-1.1,DATCNT,YES 



GPRMD NUNBN«72,D,-1.1,77777,YES 



GPRMD PATTM.74,D.17.0.10,YES 



GPRMD CND8N,76,D,37,1,33,YES 



GPRMD BPCRMJ00,D«-1J.DATCNT,YES 



1 lAAA 

.yoRO 


CMDoH 


.WORD 


»7 

3f 


1 lA Af\ 

.WORD 


TvLOL m 


1 tf\ A A 

.WORD 


TSHILIn 


.WORD 


TSCODE 


• VORD 


BrCRH 


• WORD 




.WORD 


TftI A ffM 


l_lAAf^ 

.WORD 


TCiJffI ffM 

TvHILIn 


.WORD 


TSCODE 


.WORD 


%M MOif 


■WORD 




•WORD 


TSLOLIn 


.WORD 


TtttJffI ffM 


.WORD 


TSCODE 


iJAAI\ 

•WORD 


BATTM 

PATTR 


1 » kA 


4 7 

1 1 


■ *AAA 

.WORD 


Td VM 


•WORD 


TftAJfff ffM 


.WORD 


TSCODE 


• WmU 




Linon 
.WJKP 


jl 


unDfi 




unoh 
(HUliU 




.WORD 


TKCOE 


.HUKU 


porMi 


unon 


~ 1 


• UURP 


Td ni f M 


IJAiMV 

.WRD 


TClili III 


.WORD 


TSCODE 


.HIMU 


•■■mi 


.WORD 


—1 


unon 
•UUNP 


TCi ram 


unon 




.UQRU 


TSCODE 


• HURV 


DATm 


.HUKU 


17 

1 f 


.HURU 


tcj ra tM 


unon 


iWilLin 


.WORD 


TSCODE 


•WURP 




unon 
.HUKU 


T7 

3f 


unpn 




.WORD 


TSHILin 


.WORD 


TSCODE 


.WORD 


BPCRM 


.WORD 


-1 
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(4) 
(4) 

5491 
(4) 
(4) 
(4) 
(4) 
(4) 

5492 
(4) 
(4) 
(4) 
(4) 
(4) 

5493 

5494 
(5) 



027772 
027774 
027776 
027776 
030000 
030002 
030004 
030006 
030010 
030010 
030012 
030014 
030016 
030020 
030022 
030022 
030022 



000001 
004000 

041052 
030365 
177777 
000001 
077777 

042052 
030405 
000017 
000000 
000010 



176004 



GPRMD NUMBM.102.D,-1.1.77777.YES 



GPRND PArTMJ04«DJ7«0J0,VES 



ENDSP: 



.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.trfORD 
.WORD 
.WORD 
.WORD 



SEQ 0^69 



TSLOLIH 
TSHILIM 

TSCODe 

NUNBM 

-1 

TSLOLIM 
T$HILIM 

T$CODE 
PATTM 

17 

T$L0L1M 
TSHILIM 



XFER JMPnSG 



.WORD ^SCODE 



B U 
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5496 


















5503 












.NLIST 


BEX 




5504 


030024 


046103 


040505 


020122 


CLRM: 


.ASCIZ 


/CLEAR COUNTERS/ 




5505 


030043 


122 


051505 


052105 


RRVM: 


.ASCIZ 


/RESET RANDOM VM^'IABLES/ 




5506 


030072 


040510 


052114 


040440 


HAEM: 


.ASCIZ 


/HALT AFTER fcACH CMD/ 




5507 


030116 


051120 


047111 


020124 


RCVERM: 


.ASCIZ 


/PRINT SOFT ERRORS/ 




5508 


030140 


047111 


044510 


044502 


IRECM: 


.ASCIZ 


/INHIBIT RECOVERY/ 




5509 


030161 


102 


042101 


052040 


BADTM: 


.ASCIZ 


/BAD TAPE SPOT DETECT/ 




5510 


030206 


044504 


040523 


046102 


DINTM: 


.ASCIZ 


/DISABLE INTERRUPTS/ 




5511 


030231 


111 


044116 


041111 


I REM: 


.ASCIZ 


/INHIBIT RFC ERROR REPORT/ 




5512 


030262 


033515 


032464 


020064 


RAMM: 


.ASCIZ 


/M7454 RAM DUMP/ 




5513 


030301 


103 


040510 


043516 


CHGM: 


.ASCIZ 


/CHANGE CMD SEQ/ 




5514 


030320 


044103 


051101 


041501 


CHARM: 


.ASCIZ 


/CHARACTERISTICS CODE/ 




5515 


030345 


103 


042115 


031057 


CMD2M: 


.ASCIZ 


"CMD/2" 




5516 


030353 


102 


043122 


041440 


BPCRM: 


.ASCIZ 


/BRF COUNT/ 




5517 


030365 


043 


047440 


020106 


NUMBM: 


.ASCIZ 


/# OF OPERATIONS/ 




5518 


030405 


120 


052101 


042524 


PATTM: 


.ASCIZ 


/PATTERN/ 




5519 












.LIST 


BEX 




5520 




030416 








.EVEN 






5521 


030416 








JMPMS6: 








5522 


030416 










EXIT SFT 




(7) 


030416 


023004 












.WORD TSCODE 


5523 


















5524 












.NLIST 


BEX 




5525 


030420 


046503 


027504 


000063 


CMD3M: 


.ASCIZ 


••CMD/3" 




5526 


030426 


046503 


027504 


000064 


CMD4M: 


.ASCIZ 


"CMD/4" 




5527 


030434 


046503 


027504 


000065 


CMD5M: 


.ASCIZ 


••CMO/5" 




5528 


030442 


046503 


027504 


000066 


CM06M: 


.ASCIZ 


"CMD/6" 




5529 


030450 


046503 


027504 


000067 


CMD7M: 


.ASCIZ 


••CMO/7" 




5530 


039456 


046503 


027504 


000070 


CMD8N: 


.ASCIZ 


••CMD/8" 




5531 












.LIST 


BEX 




5532 


030464 










ENDSFT 






(2) 
















.EVEN 


(3) 


030464 








L 10042: 








5533 


















5534 










» 








5535 










************************************************************************ 


5536 










» 


PATCH AREA 




5537 


















5538 


030464 


000100 






PATCH:: 


.BLKU 


64. 




5539 










;*********************************************************************** 


5540 












5541 


















5542 


030664 










LASTAO 




.EVEN 


(2) 
















(2) 


030664 


030700 












.yORD TSFREE 


(2) 


030666 


000004 












.yORD TSSIZE 


(3) 


030670 








L$LAST: 


m 






5543 


030670 










'endmod 







PARAMETER CODING 



MACY11 30(10«6) 



CZTUVB.P11 12-JUL-83 


5545 






5546 






5547 






5548 






5549 






5550 






5551 


030670 




5552 


030670 




(4) 


030670 


AAAAAA 

000000 


(3) 


030672 


AAAAAO 

000002 


(3) 


030674 




ceo 


U5U0f 


1 icOcc 


5554 


030676 


000224 


5555 


030700 




(3) 


030700 




5556 


030700 




5557 






5558 




000001 



12-JUL-83 09:44 PAGE 
HARD CODED P-T8L 



C 

79-1 



14 



SEO 0171 



.SBITL HARD CODED P-TBL 



DIAG IS PRE-PARAMETERIZED PER TBI 



BGNSETUP 1 
B6NPTAB 



.WORD 0 

.WORD L10045-. 



Li 0043: 



LI 0045! 



.END 



172522 
224 
ENDPTAB 

ENDSETUP 



PARAMETER COOING ^«ACY11 
CZTUVB.P11 12-JUL-83 09:26 



30(1046) 12-JUL-83 09:44 PAGE 80 



D 14 



ACK.C - 100000 G 



ADR : 
ALLEOT 

ASSEHB: 
ATTNM 
AUORPn 
AUTODM 
BADTM 
BADTSy 
BFSEQ 
BFSEQO 
BFSEQ1 
BFSEQ2 
BFSEQ3 
BFSEQ4 
BFSEQS 
BFSEQ6 
BFSEQ7 
BFSEOB 
BFSE09 
BFSE10 
BGNFL6- 
BINC 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
Bin = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BITS = 
61 T6 - 
BIT7 = 
BIT8 = 
BIT9 = 
B0£ = 
BORERS 
BPCRn 
BRCPK 
BRFCNT 



000020 G 
003532 G 



000010 
004421 
004731 
023006 
030161 
002211 
024154 
024200 
024252 
024264 
024356 
024430 
024472 
024544 
024576 
024630 
024662 
024704 
003466 
015150 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000400 
014374 
030353 
002330 
003426 



1958* 

2081 

1920* 

2318* 

5314* 

1728 

2481* 

2491* 

4398 

5456 

1850* 

4586 

4585 

4602 

4610 

4617 

4624 

4631 

4638 

4645 

4652 

4659 

4666 

2292* 

3673 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

3377 

5464 

2148* 

2270* 





CROSS 


REFERENCE 


TABLE 


— USER 


SYMBOLS 












SEQ 


2043 


2048 


20^1 


2054 


2057 


2060 


2063 


2066 


2069 


2072 


2075 


2078 


2084 


2087 


2090 


2093 


2096 


2099 


2102 


2105 


2108 


2111 


2114 


2116 


4318 
























2726 


2^43 


2759 


2771 


3810 


4941* 


4954* 


5176* 


5184* 


5216* 


5224* 


5309* 



3271 

4311 

4422* 

5509* 

3349 

4603 

4725* 

4747* 

4753* 

4783* 

4805* 

4823* 

4845* 

4859* 

4873* 

4887* 

4897* 

3109 

3711* 

3161 

2608 



4231 



3553 
5468 



4134 
4611 



4618 4625 4632 4639 4646 4653 4660 4667 4714* 



4231 
3909 



3620* 
5472 



5117 
5476 



2674* 2675* 2676 



S482 S486 
2677* 2679 



5490 5516* 
2830* 2896 3674 



3675 3889 



3894 
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BRF.C = 


004000 G 


1963* 


2051 


2054 


2057 


2060 






2099 


2884 


3166 


3217 


3622 


BTAODR 


002550 G 


2221« 


2736 


3575 


4149 


5091 


BTMSG1 


014170 


3572 


3608* 








BTnSG2 


014255 


3376 


3609* 








BTnSG3 


014325 


3592 


3610* 




3373 


3375 


BTPT 


003520 G 


2309« 
5092* 


2736* 


2737* 


BTRPT 


017762 


4135 


4148* 








BTO 


003000 G 


2221 


2238* 








BT1 


003052 G 


2222 


2239* 








BT2 


003124 G 


2223 


2240* 








BT3 


003176 G 


222** 


2241* 








CHAR 


002220 G 


18S8« 


5245 








CHARH 


030320 


5462 


5514* 








CHGFLG 


002215 G 


1854« 


4357» 








CHGM 


030301 


5460 


5513* 








CHKERR 


012004 G 


3094 


3195* 




2178 


2345 


CH.EAI- 


000040 G 


1858 


1986* 


1988 


CH. ERI- 


000020 G 


1987« 










CH. ESSs 


000200 G 


1985« 










CKOATA 


016200 G 


3856 


3869 


3889* 


3933 


3934* 


CKOCNT 


016610 


3898* 


3907 


3909 


CKOFF 


016612 


3899* 


3917 


3922* 


3927 


3935 


CKHAE 


017222 G 


2684 


3629 


3638 


3656 


3827 


CKHRTN 


017310 


4053 


4064* 


4887 






CLN = 


101012 G 
011502 G 


2111* 


2400 


4359 




CLRERR 


3090 


3098 


3109* 




CLRFLG 


002204 G 


1845* 


4237 


4238* 






CLRN 


030024 


5450 


5504* 








CHOAC 


007614 G 


2668 


2788* 


3626 


3635 


3652 


cnoAsc 


003734 G 


2410* 


2817 








CNOO 


002222 G 


1859* 


5246 








CHDLG 


003436 G 


2274* 


2734 


2827* 


2839* 


2846* 




3670 


3774* 


3781* 


5310 


5357* 


CnOPKM 


004166 G 


2473* 


4232 




2552 


2679* 


CHOPKT 


002314 G 


2134* 


2543 


2551 




2855» 


2861* 


2862* 


2870* 


2873 






3360 


3361 


3396* 


3404* 


3622* 






3793* 


3795* 


3797 


3798* 


3896 






5359 


5360* 








cnosAv 


003432 G 


2272M 


2885* 


:231 


3623* 


3634* 


CMDSEO 


003544 G 


2344* 


2635 


2664 


4073 


4079 






5124 


5174 


5217 


5245* 


5256 


CH0SE2 


003554 G 


2348* 










CnOTBL 


003646 G 


2577M 


2811 


5338 






CHDWRO 


003430 G 


227U 


2606 


2670 


2688 


2693 






3010 


3040 


3070 


3073 


3163 






3631 


3632* 


3633 


3645 


3646* 






4054 


4682* 


4691* 


5288 


5295 


CHD.CO= 


000001 G 


1981* 


2048 


2051 


2054 


2057 






2102 


2105 


2693 


2739 


2767 


C«).C1 = 


000002 G 


1980* 


2048 


2087 


2102 


2108 


CW>.C2= 


000004 G 


1979* 


2057 


2060 


2081 


2102 


CH0.C3= 


000010 G 


1978* 
2111 


2048 
2834 


2063 


2066 


2084 
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2063 


2066 


2069 


2072 


2075 


2078 


2081 


2096 


3793 


5358 














3575* 


3576 


3577* 


3579 


4149* 


4150 


4157 


5091* 


3936 


3942* 














3936 


3943* 














4050* 


5291 


5353 


5363 










3801 


4081 


5106 


5286 


5361 
















JJVf 








2828* 


2829* 


2831 


2836* 


2838 


2844* 


2845 


2854* 


2875* 


2880 


2882* 


2884* 


2885 


3035* 


3045 


3231* 


3623 


3624* 


3633* 


3634 


3647* 


3648 


3649* 


3650* 


4231 


4684* 


4687* 


4689* 


4693* 


4696* 


4698* 


5358* 


3648* 


3797* 


5359* 












4714 


4939 


4950* 


4951* 


4956 


5094 


5101 


5118 


5270 
















2704 


2721 


2739 


2756 


2767 


2788 


2879 


2880* 


3166 


3167 


3217 


3288 


3359 


3620 


3621* 


3622 


3772 


3773* 


3779 


3780* 


3793 


3807 


3818 


3832 


5300 


5317 


5355 


5356* 


5358 






2093 


2060 


2069 


2072 


2075 


2078 


2081 


2090 


2842 


2868 


3818 


5300 










2111 


2116 


2859 












2114 


2116 


2852 


2859 


2868 






2108 


2087 


2090 


2093 


2096 


2099 


2102 


2105 
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C2TUVB. 


P11 12- JUL" 


-83 09:26 




CROSS REFERENCE 


TABLE ~ USER 


SYMBOLS 


CH0.C4= 


000020 G 


1976* 














CW2H 


030345 


5*63 


5515* 












CM03H 


030420 


5467 


5525* 












cno4n 


030426 


5471 


5526* 












CW5M 


030434 


5475 


5527* 














030442 


5*^81 


5528* 












CH07H 


030450 


5485 


5529* 












cnosn 


030456 


5489 


5530* 










3870* 


CMPOAT 


003410 G 


2263* 


3769* 


jf f f ^ 




JOOO* 


jOQI 


CNTBGNs 002560 


2228# 


2251 












CNTEM>> 


003330 


2248# 


2251 












CNTLENs 


000550 G 


2251* 


4240 












CODEin 


004056 G 


2470* 


4594 












COUNTE= 


050416 


4321* 


4327 










CP.AOHs 


000004 G 


2023* 














CP.AOL= 


000002 G 


2022* 


2844* 


CO J*» " 




CO' w ^ 


^6?&* 


3649* 


CP.CHDs 


000000 G 


2021* 














CP.CNT= 


000006 G 


2024* 


2679* 




pass* 

CO 


COO 1 ^ 




3650* 






4698* 














CRLF 


005277 G 


2499* 


4170 












CRLFSP 


005302 G 


2500* 


4156 








3212 




CTCC 


003460 G 


2284* 


2551 


3143* 


3161 


3200 

^fcWW 




CVCC = 


040000 6 


1959* 


2043 


2114 










CSAU - 


000052 


1728* 


4551 












C$AUTO> 


000061 


1728* 


4420 




4313 








CS6RK = 


000022 


1728* 


VA^ A 

3069 


3125 


4336 






C»6SEG> 


000004 


1728* 














C»6SUB= 


000002 


1728* 


» eA9 

4583 


4600 


4608 

"WWW 


4615 


4622 


4629 


CSCEF6= 


000045 


1728* 














C$CLC»Cs 


000062 


1728* 














C$CLEA- 


000012 


m *V1A M 

1728* 


4474 












CSCLOS- 


000035 


1728* 














CSCLPl* 


000006 


1728* 


4395 












C»CveC= 


000036 


1728* 


4456 










C»DCLN= 


000044 


1728* 


3957 


4314 


4353 








CSOOOU- 


000051 


1728* 


4016 


4401 










CWRrfs 




1728* 


27S2 


4010 










cwu * 




1728* 


J CAA 

4508 












C»tDIT= 




1728* 


1775 










3322 


i.»cKi/r - 




1728* 


VAAC 

3005 


3030 


3049 


3087 


3271 


CSERHRs 


000056 


1728* 


3223 


3255 


3303 


3526 


3891 

^w ^ ■ 


3095 


CSERRO= 


000060 


1728* 














CfCRSFr 


000054 


1728* 


4232 












C$ERSO= 


000057 


1728* 


3351 


3400 


3430 








C$ESCA- 


000010 


4 A M 

1728* 














CSESEG- 


000005 


4 7^A A 

1728* 










4627 


4634 


CSESUB- 


000003 


4 7^A A 

1728* 


J CAA 

4598 


4606 


4613 


4620 


C$£TST= 


000001 


4 7^Am 

1728* 


J AAA 

4908 


5051 


5150 


5193 


5230 


5366 


C$£XIT= 


000032 


4 7^Am 

1728* 


4362 


4460 


4706 


4961 


5147 


5189 


CSGETB= 


000026 


4 7^ A M 

1728* 














CtCETW- 


000027 


4 ^^A M 

1728* 














C$GnAN= 


000043 


4 A M 

1728* 


4059 












C$GPHR= 


000042 


If com 




4529 










C$GPLO= 


000030 


1728* 














CfGPRI= 


000040 


1728* 


4378 












CflNITr 


000011 


1728* 













SEO 01 



3873* 



3798* 
3896 



5360* 

4684* 4687* 4689* 4693* 



4696 » 



4636 4643 4650 4657 4664 



4680 



3461 
3921 



4641 
5226 



3476 3508 3518 4002 



4648 4655 
5326 



4662 4672 



4701 
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CSINLP: 
CtMANI' 
CMEH : 
CWSG = 
CtOPEN= 
CtPNTB- 

C*PNTF= 
CSPWTS= 

CtPNTX= 

CSQIO 

CSROBU^: 

CSREFG- 

CSRESE' 

CSREVI= 

CSRFLA: 

C»RPT = 

CSSEFG= 

CSSPRl: 

CSSVEC: 

CSTPRI= 

DATARD 

DA TAUT 



000020 
000050 
000031 
000023 
000034 
000014 

000017 
000016 

000015 

000377 

000007 

000047 

000033 

000003 

000021 

000025 

000046 

000041 

000037 

000013 

003420 G 

003416 G 



DATCNT= 004000 G 



DATRAT 
DEVTBL 



DFPTBL 

DFTSCH= 

DIA = 

DIABU= 

DIACNT= 

OIAGnC= 

:>!NT 

DINTH 

DLY = 

OLY.C = 

OOAGIN 

DRI = 

OROPDN 

DROPED 

OROPN 

DROPU 

OROPUA 

ORORTN 

DTAERH 

DTAER2 

DTAER3 

0TAER4 



003412 G 
002536 G 



002176 
000040 
100006 
003416 
000020 
000000 
002212 
030206 
000020 
000020 
003340 
100013 
004702 
003530 
017136 
016716 
017046 
017124 
005474 
004763 
005032 
005074 



1728# 

172S# 

1728# 

1728# 

1728# 

1728* 

3936 

1728# 

1728# 

4170 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

2267* 

2266* 

4674 

1864 

4762 

4882 

5482 

2264* 

2212* 

3556 

4017 

4454 

1818* 

1988* 

2116* 

2287* 

2032* 

1728 

1851* 

5457 

2120* 

1977* 

2256* 

2048* 

2490* 

2316* 

4014* 

3006 

4011* 

4025* 

2518* 

2492* 

2493* 

2494* 



4052 
4349 
2538 
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2572 



SEQ 0175 



2524 


2525 


2534 


2541 


2542 


2548 


3376 


3572 


3592 


3702 


3892 


3896 


4311 
4128 


4329 
4129 


4332 
4130 


4352 
4131 


4398 
4132 


4408 
4133 


4413 
4137 


4493 
4148 


4594 
4151 


5068 
4156 


4160 


4164 


2550 


2551 


2552 


2553 


3485 


3496 


3747 


3753 


3928 


4037 


4038 




4250 


4265 


4273 


4276 



















1775 
4270 
4201 

4317 
4297 

2607 

2287 

4675 

1868 

4766 

4919 

5486 

3859* 

2524 

3564 

4127 

4492* 

2637 
2402 
2862 
2861 

3026 

5510* 

2404 

2120 

5072* 

2377 

4493 

3701 

4029* 

3031 

4409 

3891 
3928 
3936 
3892 



4393 4533 



2622 
2870 

1872 
4770 
4927 
5490 
3861 
2541 
3644 
4128 
4528* 



2844 
2899 

1880 
4774 
4995 

3862* 

2687 

3654 

4256* 

4589 



3798 


3845 


3846 


3038* 


3085* 


3181* 


1884 


2033* 


2353 


4778 


4788 


4850 


5001 


5041 


5163 


3867 






2722 


2755 


3013 


3776 


3806 


3828 


4262* 


4289 


4320 


4594 


5089 


5109 



3902 
3437* 


4350* 
3649 


5360 
3901 


4349* 


4350 


4351 


2357 
4854 
5211 


2361 
4860 
5219 


4350 
4864 
5464 


4351 
4868 
5468 


4754 
4874 
5472 


4758 
4878 
5476 


3063 
3953 
4329 
5114 


3195 
3956 
4332 
5130 


3345 
3959 
4391 
5294 


3369 
3976 
4399 


3406 
3977 
4408 


3548 
4014 
4413 



3076 



5275 

5131* 

4729 

5850 
4399* 
3050 
4414 



3853 
4493 
3088 



3951* 3972* 4007* 
3324 3380 3463 



4025* 

3478 3510 



3520 



3989* 



3895 3921 
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DTAFRS 


005115 G 


2495# 


EF COM= 


000036 G 


1920« 




000035 G 


1920# 

1 y t W" 


FF PURx 


000034 G 


1920# 


FF RF^= 


0000^7 G 


19?0# 


FF STA= 


000040 G 


1920# 


E INC 


015156 


3694 


END = 


177777 Q 


2122* 






2722 






4718 






4952 


ENDERF= 


003500 


2303* 


ENDFLG= 


003536 


1^324* 


ENDSP 


030022 


5480 


ENDSP1 


027630 


5461 


ENDSP2 


027632 


^479 


EOTFLG 


003510 G 

ww^^ ■ w w 


2308* 






3809 


ERCVER 


002207 G 


1848* 


ERLOG 


003474 G 


2298* 


ERRREC 


003477 G 

WW ■ ■ w 


2301* 


ERS ' 


100411 G 


2105* 


ERSFLG 


003534 G 


2320* 


EVL = 


000004 G 


1920* 


EX ALL 


006760 G 


2664* 






4938 


EXARTN 


007252 


2701 


EXCRTN 


011164 


3007 


EXCUTE 


010576 G 


2727 


EXPBOT 


003522 G 


2310* 


EXSUB 


007254 G 


2683 


ESEND = 


002100 


1728* 


ESLOAO= 


000035 


1728* 


FATSn 


004457 G 


2483* 


FIRSTU 


016614 G 


2686 
5293 


FHT.COs 


000040 G 


1972* 


F«T.C1= 


000100 G 


1969* 


FTLCNT 


003320 6 


2247* 


FUNRn 


004437 G 


2482* 


FSAU = 


00001 5 


1728* 


FSAUTO= 


000020 


1728* 


FSBGN = 


000040 


1728* 






4111 






4553 






4629 






4701 






5226 






5552 


FSCLEA= 


000007 


1728* 


FSDU = 


000016 


1728* 


FSENO = 


000041 


1728* 






4111 






4576 






4634 






4706 
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3896 








4273 








4265 








4276 








4250 








371 5* 








2216 


2271 


2272 


2273 


2755 


3013 


3806 


3956 


4745 


4751 


4781 


4803 


4958 


5078 


5089 


5099 


3089 


3097 






4358 








5493* 








5480* 








5481* 








2689 


2693 


272** 


2725 


3818 


3854 


5296 


5300 


3350 


3399 


3571 


3591 


3668 


3669* 






3036 


3201 


3297 


3350 


2398 


3632 


4791 




3584* 


3630 


3639* 


5116* 


4587 


4604 


4612 


4619 


/ OCT 


/ oca 


CA70 


CI 71 


2710* 








3032 


3052* 






2730 


2741 


2744 


3000* 


3283 


45Bi* 






2721* 


5287 


5352 


5362 


1775 








3476 








2721 


2754 


3012 


3805 


2043 








2043 








3990* 


4137 


4397* 


4407* 


3322 








4519 


4551 






4388 


4420 






1758 


1888 


1913 


2518 


4118 


4141 


4207 


4220 


4576 


4578 


4583 


4598 


4634 


4636 


4641 


4643 


4706 


4908 


4915 


4961 


5230 


5239 


5326 


5366 


5555 


5556 






4444 


4474 






4484 


4508 






1758 


1888 


1913 


2535 


4141 


4201 


4362 


4378 


4578 


4583 


4598 


4600 


4636 


4641 


4643 


4648 


4908 


4915 


4961 


5051 



USER SYMBOLS 



2369 


2370 


2371 


2372 


4078 


4127 


4289 


4320 


hoc! 




A&C7 




5123 


5172 


5186 


5214 


2734 


2739 


2757 


2758 


3701 








3355* 


3410* 


3435* 




4626 


4633 


4640 


4647 


5187 


5215 


5223 




3412 


3439 


3627 


3636 


5140* 


5162* 


5206* 


5242* 


3951* 


4126 


4287 


4319 


4412* 








2535 


2540 


2554 


2582 


4362 


4388 


4444 


4460 


4600 


4606 


4608 


4613 


4648 


4650 


4655 


4657 


5051 


5066 


5147 


5150 


5367 


5392 


5403 


5413 


2538 


2554 


2572 


2584 


4420 


4460 


4474 


4494 


4606 


4608 


4613 


4615 


4650 


4655 


4657 


4662 


5066 


5147 


5150 


5159 



SEQ 0176 





9ZOC 


£003 




4391 


4454 


4589 


4715 


4885 


4895 


4905 


4937 


5222 


5260 


5294 




2767 


3150* 


3173 


3808 


4654 


4661 


4668 


4670 


3653 


3849 


4082 


5107 


4390 


4453 


4588 


5081 


2586 


2590 


2594 


4087 


4484 


4494 


4519 


4536 


4615 


4620 


4622 


4627 


4662 


4664 


4672 


4680 


5159 


5189 


5193 


5203 


5441 


5522 


5543 


5551 


2588 


2592 


2596 


4087 


4508 


4536 


4551 


4553 


4620 


4622 


4627 


4629 


4664 


4672 


4680 


4701 


5189 


5193 


5203 


5226 
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,4 



SEQ 017 



FSHARD= 
FSHU : 
FtINIT= 
FSJMP = 

FSMOO = 
FWSG = 
F$PROT= 
FSPWR = 
FSRPT = 
FSSEG = 
F$SOFT= 
FSSRV = 
FSSUB = 

FSSU = 
F$TEST= 
GCMDA 
GENPAT 

GES = 

GETSTM 

GIT 

GOWAIT 

GSCPK 

GSCNTQ: 

G$DELM= 

GSOISP= 

G$EXCP= 

GSHILI= 

GSLOLI= 

GSNO = 

GSOFFS= 



000004 
000013 
000006 
000050 

000000 
000011 
000021 
000017 
000012 
000003 
000005 
000010 
000002 

000014 

000001 

007670 6 

010300 G 

100017 G 

005243 G 

010572 

011166 G 

002324 G 

000200 

000372 

000003 

000400 

000002 

000001 

000000 

000400 



GSOFSI= 000376 



GSPRNA- 
GSPRMO: 



GSPRML= 
GSRAOA: 
GtRAOB= 
GSRADD= 



GSRAOL: 
GSRAOO: 
GSXFER: 
GSYES : 



000001 
000002 



000000 
000140 
000000 
000040 



000120 
000020 
000004 
000010 



5230 


5239 


5326 


5555 


5556 


5413 


1728# 


5403 


1728# 


1818 


1829 


1728# 


4220 


4378 


1728# 


2535 


2554 


5326 


5413 


5522 


1728# 


1758 


1888 


1728# 


2518 


2538 


1728# 


4207 


4211 


1728# 






1728# 


4118 


4201 


1728# 




5455 


1728# 


5441 


1728# 


2582 


2584 


1728# 


4583 


4598 


4636 


4641 


4643 


1728* 


1838 


1887 


1728* 


4578 


4908 


2789 


2794 


2810* 


2871 


2895* 




2102* 


2142 


2397 


2498« 


4037 




2982 


2987* 




2760 


2763 


2769 


2142* 


3998 


4323 


1728# 






1728# 


3042 


3071 


1728* 






1728* 






1728* 






1728* 






1728* 






1728* 


4059 


5410 


5460 


5462 


5463 


5474 


5475 


5476 


5489 


5490 


5491 


1728* 


4059 


5410 


5460 


5462 


5463 


5474 


5475 


5476 


5489 


5490 


5491 


1728* 


5410 




1728* 


5411 


5462 


5473 


5474 


5475 


5488 


5489 


5490 


1728* 


4059 


5450 


1728* 






1728* 






1728* 


5463 


5464 


5475 


5476 


5477 


5490 


5491 


5492 


1728* 


4059 


5450 


1728* 


5410 


5411 


1728* 


5413 


5455 


1728* 


4059 


5410 


5460 


5462 


5463 



5366 


5367 


5392 


5413 


5427 


5522 


5532 


5543 


5551 


5552 


5427 


5455 


5461 


5479 


5480 


5494 


5522 








4141 


43d£ 


44o0 






HfvO 






5189 


5??6 


1913 
2540 


4087 
2572 


4111 


4553 


4576 


5367 


5392 


5543 






5461 
2586 
4600 
4648 


5479 
2588 
4606 
4650 


5480 
2590 
4608 
4655 


5494 
2592 
4613 
4657 


5522 
2594 
4615 
4662 


5532 
2596 
4620 
4664 


4622 
4672 


4627 
4680 


4629 
4701 


4634 


4915 
4055 


5051 


5066 


5150 


5159 


5193 


5203 


5230 


5239 


5366 


4737 


5288 


















2772 
4403 


3063* 


3413 


3440 


3628 


3637 


3655 


3851 


4083 


5108 


3074 


4233 


4312 


4324 


4335 


5279 











5411 
5464 
5477 
5492 
5411 
5464 
5477 
5492 



5450 
5465 
5478 

5450 
5465 
5478 



5451 
5466 
5481 

5451 
5466 
5481 



5463 


5464 


5465 


5476 


5477 


5478 


5491 


5492 


5453 


5451 


5452 


5465 


5466 


5467 


5478 


5481 


5482 


5451 


5452 


5453 


5462 






5461 


5479 


5480 


5411 


5450 


5451 


5464 


5465 


5466 



5452 
5467 
5482 


5453 
5468 
5483 


5454 
5469 
5484 


5452 
5467 
5482 


5453 
5468 
5483 


5454 
5469 
5484 


5466 
5481 


5467 
5482 


5468 
5483 


5454 


5456 


5457 


5468 
5483 


5469 
5484 


5470 
5485 


5454 


5456 


5457 


5494 
5452 
5467 


5522 
5453 
5468 


5454 
5469 



5456 
5470 
5485 


5457 
5471 
5486 


5458 
5472 
5487 


5459 
5473 
5488 


5456 
5470 
5485 


5457 
5471 
5486 


5458 
5472 
5487 


5459 
5473 
5488 


5469 
5484 


5470 
5485 


5471 
5486 


5472 
5487 


5458 


5459 


5460 




5471 
5486 


5472 
5487 


5473 
5488 


5474 
5489 


5458 


5459 


5460 




5456 
5470 


5457 
5471 


5458 
5472 


5459 
5473 
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HAE 

HAEN 

HALTH 

HELP = 

HERE 
HOE = 
HRDCNT 
IBE = 
lOU = 
lER = 
lE.C = 
INITIO 
INIT15 
1NIT16 
INTFLG 
INTPRI= 
IRE 
IREC 
IRECN 
IREH 
ISR = 
IXE = 
ISAU = 
1$AUT0= 
ISCLN = 
I$OU = 
ISHRD = 
I$1NIT= 

isnoo = 

I MSG - 
I$PROT= 
ISPTA6= 
I$PWR = 
ISRPT = 
ISSEG = 

I$SETU= 
ISSFT = 
ISSRV = 
iSSUB = 



002206 G 
030072 
004126 G 
000000 

003341 G 

100000 G 

003310 G 

010000 G 

000040 G 

020000 G 

000200 G 

021222 

021442 

021462 

003500 G 

000340 G 

003527 G 

002210 G 

030140 

030231 

000100 G 

004000 G 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000040 

000041 

000041 

000041 

000041 

000041 
000041 
000041 
000041 



I$TST = 000041 



JLOC 

JLOOP 

JMP 

JMPMSG 
JMP.C = 
J$J«P ^ 
LENHSK 

LOE = 



003454 G 
003452 G 
000040 G 
030416 
000040 G 
000167 
003440 G 
040000 G 



5474 


5475 


5489 


5490 


1847« 


4C50 


5452 


5506* 


24 72# 


4056* 


1716# 


1723 


4222 


4363 


2257# 


4254* 


1920# 




2246« 


3222* 


1920* 




1920* 




1920* 




1968* 


2043 


4231* 


4234 


4251 


4265* 


4266 


4270* 


2307* 


2583* 


1775 


2028* 


2315* 


3221 


1849* 


3354 


5454 


5508* 


5458 


5511* 


1920* 




1920* 




1728* 


4519* 


1728* 


4388* 


1728* 


4444* 


1728* 


4484* 


5403* 


5427* 


1728* 


4220* 


1728* 


1758* 


1728* 


2518* 


1728* 


4207* 


1728* 


5552* 


1728* 


4118* 


1728* 


1728* 


4578 


4680 


4915 


1728* 


5551* 


5441* 


5532* 


1728* 


2582* 


1728* 


4578 


4634* 


4636* 


4915 


5066 


1728* 


4578* 


4680 


4706 


5226 


5230* 


2281* 


5264* 


2280* 


5254* 


2118* 


2403 


5494 


5521* 


1973* 


2118 


1728* 


2535 


2275* 


2675 


1920* 





5476 
5491 



4057* 
1750 
4446 
5067 



3035 



2587* 
4297 
3296 
3405 



4551* 
4420* 
4460 
450M 

4362 

1888f 

2538# 

5555* 

4201* 
4583 
5066 
5552 

2584* 

4583* 

4641* 

5159 

4583 

4908* 

5239* 

5271« 

5265 



5261 
2554 
4920* 



54? 7 
5492 



4058* 
1767 
4461 
5069* 



5478 5481 



4059 
1777 
4486 



5243* 
3434 



447a 



437af 
1915* 
2540* 



4600 
5159 
5556* 

2586* 

4598* 

4643* 

5203 

4600 

4915* 

5326 

5?69« 



4141 
5164* 



2588* 

4600* 

4648* 

5239 

4608 

4961 

5366* 



4494 



1793 
4495 



5482 



1820 
4521 



5483 5484 5485 5486 



1839 
4537 



1922 
5405 



2458 
5415 



2519 
5443 



SEQ 0178 
5487 5488 



4120 4173 
5497 



3254* 3302* 3920* 4137 



2591* 2595* 3028 
4533 



3700 4018 



3034* 
4318 



3077 4534* 



\7» 4111# 4553* 4576* 5367* 5392* 5543* 



4615 
5239 



2590* 
4606* 
4650* 

4615 
5051* 



4622 4629 4636 4643 4650 4657 4664 



2592* 
4608* 
4655* 

4622 
5066* 



2594* 2596* 

4613* 4615* 4620* 46??* 4627* 4629* 
4657* 4662* 4664* 4672* 4680* 4701* 



4629 4636 4643 4650 
5147 5150* 5159* 5189 



4657 4664 
5193* 5203* 



4536 
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SEO 0179 



LOG 

LOT = 

LSACP 

L$APT 

ISAU 

LSAUT 

LSAUTO 

LSCCP 

LSCLEA 

LSCO 

LSDEPO 

LSDESC 

LWESP 

LSDEVP 

LSOISP 

LSOLY 

LSDTP 

LSOTYP 

LSOU 

LSOUT 

LSDVTY 

L$EF 

LSENVI 

LSETP 

LSEXPI 

L$EXP4 

L$EXP5 

LSHARD 

LSHIHE 

LSHPCP 

LSHPTP 

LSHW 

LSICP 

LSINIT 

LSLADP 

L$LAST 

LSLOAO 

LSLLM 

L$nREV 

LSNAME 

LSPRIO 

LSPROT 

LSPRT 

LSREPP 

LSREV 

lsrpt 

LSSOFT 

LlSPC 

L$SPCP 

LSSPTP 

LSSTA 

LSSW 

L$TEST 

L$TIHL 

LfUNlT 

L 10000 



014664 

000010 

002110 

002036 

023246 

002070 

022516 

002106 

023140 

002032 

002011 

002140 

002076 

002060 

002124 

002116 

002040 

002034 

023202 

002072 

002166 

002052 

002044 

002102 

002046 

002064 

002066 

027202 

002120 

002016 

002022 

002176 

002104 

021222 

002026 

030670 

002100 

002074 

002050 

002000 

002042 

021214 

002112 

002062 

002010 

017366 

027254 

002056 

002020 

002024 

002030 

002204 

002114 

002014 

002012 

002202 



G 
G 
G 
G 
G 
G 
6 
G 
G 
G 
G 
6 
6 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
6 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



3096 


3668« 


1920# 




1775# 




1775# 




1775 


4519# 


1775# 




1775 


4388# 


1775# , 




1775 


4444# 


}775M 




}775M 




1775 




1775# 




1775# 




1775 


4 9A4 Jl 

1791# 


1775m 


5042 


1775* 




1775* 




1775 


44B4# 


4 M 

1775# 




1775 


1o07# 


1775* 








1 ffjm 




1775* 




1 ffj» 




1 77Cif 

1 f fjm 








17759 




1775# 




1 7f5m 




1775 




1775* 




1775 


HCcQm 


I ffJW 




1775 


55h^» 


170f 




^ 77C4I 

1 f rj» 


ZQCO* 


1 77C M 

1775m 




1 77CM 




1 77C« 

1 ff5m 




i 77C 


H£Vfm 


1 77Cii 




1 77C4i 

1 f fjm 




^ 77C« 

1 f rim 




1 77C 




1 77C 


5<ihI# 


1 77C« 
1 f f 5# 








1 77C« 




Iff 




1775 


1838» 


17750 


3040 


1775M 




17750 


4259 


1818 


1829« 



3071 3074 4233 4312 4324 4335 5279 



5556 
3977* 



3287 3855 



PARAMETER COOING 


CZTUVB.P11 12- 


L lOOOi 


002314: 




Li 0002 


0056A0 




L100C3 


AA^ C^/ 

00656* 




L1000A 


0065^2 




LI 0003 


AA^^AA 
OOOOOO 




L '0006 


AA^^A^ 

0066U6 




L 1000^ 


UOoOIh 




LlOOlO 


A01 01 0 

021212 




L10012 


02251* 




LI 001 3 


02300*1 




L lOOlH 


023200 




LI 001 > 


0232H* 




LIOOI6 


0233*0 




LI 001 r 


A3/ 70A 

02*r^20 




L lOOcU 


A0'tA7A 

023*f * 




LlOOcl 


02^320 




LI 0022 


0233*0 




LI 0023 


023360 




L1002h 


023600 




LI 0023 


023620 




1 1 AA^iL 

LI 0020 


0236*0 




1 ^ AA^7 

Ll002f 


023660 




L1003U 


A3T7nh 
Uc 3 f 00 




LlUvJl 


nPT73n 




L1UU32 


n3'X7CA 
023r 30 




Llw^j 






LI 003* 


v/c3*0e 




I 1 AATC 

LI 0033 


OcOO*U 




1 1AATA 
LI 0030 


n9A3nA 




1 iAAT7 

Ll003f 


026336 




LIOUAU 


Uc r 1 » 0 




I 4 A/W 1 

LIOOmI 


n373^3 
Ocr c3£ 




1 \ AA/ 0 

L100h2 


030*0* 






03067A 




LI 0045 


030700 




M8R = 


100012 


G 


NEHOn 


022412 




MISCFG 


003541 


G 


IIOD.COs 


000400 G 
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SEQ 0180 



M0D.C1= 

MO0.C2= 

M0D.C3= 

MOVMSG 

HSGCNT= 

MSGPKA 

MSGPKT 

MSGPKO 

MSGPKl 

NSGPK2 

MSGPK3 

MS.RFC= 

MS.XSO= 

MS.XS1= 

MS.XS2: 



001000 G 
002000 G 
004000 G 
01:552 G 
000016 G 
002506 G 
002340 6 

002356 G 
002374 G 
002412 G 
002430 G 
000004 G 
000006 G 
000010 G 
000012 G 



1838 

2535 

2554 

2584# 

2588# 

2592* 

2596* 

4141 

4362 

4420* 

4460 

4494 

4536 

4706 

4598* 

4606# 

4613* 

4620* 

4627* 

4634* 

4641* 

4648* 

4655* 

4662* 

4672* 

4701* 

4961 

5147 

5189 

5226 

5326 

5403 

5441 

5552* 

5552 

2087* 

4352 

2331* 

1967* 

2845 

1966* 

1965* 

1962* 

3004 

2031* 

2189* 

2158* 

3889 

2168* 

2169* 

2170* 

2171* 

1993* 

1994* 

1995* 

1996* 



1887* 
2538* 
2572* 



4201* 
4378* 

4474* 
4508* 
4551* 
4908* 



5051* 




5150* 




5193* 




5230* 




5366* 




5413 


5427* 


5522 


5532* 


5555* 




2148 


2392 


4374* 




3385* 


4051 


2043 


2054 


3167 


3168 


2043 


2069 


2043 


2084 


2043 




3048 


3086 


2177 


3022 


3018 


3020 


2551 


2553 


3991 


4038 


2175 


2189 


2190 




2191 




2192 




2551 


2607 


2553 


3150 


2553 


4038 


2553 


3161 



4061* 
2066 
3172 
2072 



3092 
3146 
3144 
2607 



3218 
3283 



2069 
3807 
2075 



3141* 
3994 
3992 
3147* 



3675 
3292 



2072 
5295 
2078 



4000 

4590 
3150 



3676 
4038 



2099 
2081 

4341 

3161 

3889 



2105 2108 2606 2688 2723 2756 
2093 2096 2099 2111 3404 



3206 3218 3283 3292 3675 3676 



3206 4038 



n H 

PARAMETER COOING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-9 

CZTUVB.P11 12-JUL-83 09:26 CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0181 



HS.XS3= 000014 G 
NCMO.C= 177740 G 
NCNT 003422 G 

NCNT1 003424 G 
NEXTSP 027322 
NEXTU 016662 G 

NINUSE= 177774 G 



NOINTM 
NROYM 
NSSRM 
NUMBM 

NURTY1 
OFLINM 
ONEFIL= 

OPFLAG 

OPP.C = 

0$APTS= 

0$AU = 

0S6GNR= 

0t6GNS= 

0$0U = 

0$ERRT= 

OSGNSW= 

OSPOIN- 

0$SETU= 

PASCNT 

PATCH 

PATERN 

PATRO 

PATR1 

PATR2 

PATR3 

PATR4 

PATR5 

PATR6 

PArR7 

PATR8 

PATTBL 

PATTM 

PCMDUD 

PIRE 
PNT = 
PRI = 
PRIOO = 
PRiOl = 
PRIO? = 
PRI03 = 
PRI04 = 
PRI05 = 
PRI 06 = 
PRI07 = 



004505 G 
023102 
004355 G 
030365 
005157 G 
005213 G 
000001 



G 
G 



003542 
020000 
000000 
000001 
000001 
000001 
000001 
000000 
000001 
000001 
000001 
003260 
030464 
003456 
010364 
010422 
010442 
010452 
010476 G 
010510 G 
010522 G 
010542 G 
010574 G 
010342 
030405 
003434 G 



002213 
001000 
002000 
000000 
000040 
000100 
000140 
000200 G 
000240 G 
000300 G 
000340 



1997# 

2043# 

2268« 

5133* 

2269* 

5455 

2698 

5305 

2042* 

3644 

2484* 

4332 

2479* 

5465 

2496* 

2497* 

1712* 

5383 

2337* 

1960* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

1728* 

2243* 

5538* 

2282* 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2900 

5466 

2273* 

3832* 

1852* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 

1920* 



2553 

2832 

2667 

5138* 

2667 

5457* 

2748 

2212 
3654 
3087 
4413 
3005 
5469 
3702 
4329 
1754 

4270* 

2043 

1775 

1765* 

1765* 

1765* 

1765* 

1775 

1765* 

1765* 

1765* 

2524 

2866* 

2919* 

2932* 

2942* 

2948* 

2959* 

2966* 

2972* 

2981* 

2991* 

2906* 

5470 

2704* 

5317* 

5243 



4317 



3991 4038 



2703* 

5285 

2864* 


2865* 

C TAD 

5308 
3800 


3041 

5jiO* 

3829 


3799* 
5104 


3800 
5110 


3829* 
5285 


3831* 
5308* 


3858 


5104 


5110* 


5112" 


2776 


3015 


3825 


3972* 


4138 


4307 


4345 


4417 


4457 


4596 


5141 


2213 
3776 


2214 
3828 


2215 
3953 


3063 
3976 


3195 
4017 


3345 
4256 


3369 
4492 


3406 
5109 


3548 
5114 


3556 
5130 


3564 


4424* 
























JHf f 








5517* 












4408 
1889 


1890 


1897* 


1904 


4095* 


4102 


4555 


4564* 


5368 


5369 


5377* 


H.9 10 

2072 


2078 


3396 


















1775 
1775 

1 f fj 

1775 






















1775 
1775 

177"? 

2541 


4011 


4012* 


4128 


4300* 


4302* 


4593 










2895 






















2986 






















5474 
2793 


5478 
2879* 


5484 
3168 


5488 
3172 


5492 
3288 


5518* 
3386* 


3620* 


3631* 


3645* 


3772* 


3779* 



5355* 



2028 4393 
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SEO 0182 



PRXST 

PTCHDS 

PURFLG 

RAMOAT 

RAMOUn 

RAMER 

RAMFHR 

RAMHLO 

RAMIOP 

RAHLIN 

RAMH 

RAHPD 

RAHR5H 

RAMSIZ 

RAMURT 

RANB 

RANBC - 

RANCHD 

RANDOM 

RANP = 

RANRD 

RANS 

RANSC = 

RANU 

RANUR 

RANUV 

RCVERH 

RDF = 

RDR - 

RECCNT 

RECLOb 
RErRED 
RE C TAP 
RE CUD 
REPEATS 
RERM 
RETRY = 
RETRYC 

REWRT 

RFBC 

RFCERM 

RFREC 

RFUNR 

RLEXM 

RNF = 

RNOPSC= 

RNR = 

RNYH 

RPF = 

RPR = 

RPTCNT 

RPTFL6 



017140 G 
027050 
003537 G 
003346 G 
013360 G 

015164 G 

005310 

003342 

005401 

005464 

030262 

005452 

003344 

003406 G 

002214 G 

0034-2 6 

153624 G 

025210 

003523 6 

000007 G 

025250 
003444 G 
032561 G 
025350 
025324 
025336 
030116 
104001 G 
104401 G 
003330 G 

003473 6 
006562 
006616 G 
011636 G 
050232 
004634 G 
050230 
003466 G 

014550 
002660 C 
004340 G 
002760 G 
002770 6 
004374 G 
125401 G 
177740 G 
105401 G 
004570 G 
105001 G 
125001 6 
003470 6 
003525 6 



4004 

5247 

2329* 

2261* 

3224 

3519 

3488 

2501* 

2259* 

2502* 

2504* 

5459 

2503* 

2260* 

2262* 

1853* 

2276* 

2040* 

4935 

2311* 

1862 

4930 

4949 

2277* 

2041* 

5013 

4968 

4967 

5453 

2051* 

2054* 

2249* 

3436* 

2297* 

2526* 

2529 

3093 

3551* 

2488* 

3549* 

2293* 

3702 

3555 

2231* 

2478* 

2236# 

2237* 

2480* 

2072* 

2036* 

2069* 

2487* 

2075* 

2078# 

2294* 

2313* 



4037* 

5248 

4268* 

3731 

3256 

3490 

3485 

3487* 

3747 

3496 

5512* 

3753 

3486* 

3484 

2672* 

4247 

4967* 

2669 

1866 

4999 

4975 

2672 

4248 

5027 

4969 

5026* 

5507* 

2360 

2356 

2524 

3437 

3159 

2530 

2546 

3159* 

3562 

3351 

3569 

3366* 

3644* 

4131 

3223 

4132 

4133 

351P 

2387 

4928 

2386 

4002 

2388 

2389 

3367* 

2750 



5289 






5249 


5250 


5251 


4272 


4348 


4360* 


3748 






3272 


3304 


3323 


3492 


3495 


3726* 


3489* 


3491* 


3494* 


3493* 


3733 


3743 


2673 


2983* 


2984 


3219 


3294 


4580* 


1870 


1874 


1878 


5003 


5046 


5213 


4976 


4977 


4978 


2673* 


2674 


2983 


5041* 






4970 


4971 


4972 


2378 


3780 


4691 


2379 


3773 


4682 


2541 


3037* 


3038 


3581 


4128 


4306* 


3162* 


4006 




2531* 


2534 


2547* 


2606* 






3400 


3430 




3589 






3395 


3399 


3403* 



3526 
4867 
4950 
4863 

4877 
4881 
3557* 
2751* 



4997 5044 



52.52 5253 
3352 3379 

3732 3744 



3749 

4247* 4933 



4917* 5073* 
1882 1886 



5221 
4979 



4873 
4859 
3085 



5337* 
3401 



3431 



3462 3477 3484* 3509 



4980 



2984* 2985 



4996* 4997 5043* 5044 

5161* 5205* 524 t* 

2037* 2351 2355^ 2359 

4981 4982 4994# 

4248* 4933* 4934 4996 



2363 2367 
5043 



4973 4974 5012* 5170 



5000 
4994 
3160* 



5210 
5218 
3164* 



5356 

3169* 3174* 3181 



3378* 3381* 



2548 2570* 



3429 3433* 3516 3524 3563* 3572 3574 3588 



3560* 
4955* 



3561 



3572 3586* 



♦ 
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CROSS REFERENCE 


TARI t- - 


RPT1A 


020230 


4128 










RPT1B 


020305 


4129 










RPT1C 


020356 


4130 


H 1 Of IF 








RPT1D 


020427 


4131 


1 OOIF 








RPTIE 


020655 


4148 










RPT1F 


020533 


4132 










RPT1G 


020604 


4133 










RPT11 


021001 


4137 










RPTIJ 


020705 


4151 










RPT1K 


020772 


4160 


■f 1 T"f If 








RRANV 


002205 G 


1846# 










RRBC 


002620 G 


2210M 










RRECL = 


000020 G 


2038# 


^39A 


3524 






RRREC 


002740 G 




H 1 








RRUNR 


002750 G 


2255M 










RRvn 


030043 


5451 










RTLE 


013512 G 


3392 




3507# 






RTLRTN 


013646 


3512 










RyCPK 


002334 G 


2153/r 




3459 






RUO = 


102010 G 


2084# 




2348 


2364 


2391 


RVERR 


003475 G 


22990 


5230 


3362* 


3514* 


3585* 


R5SAVE 


003462 G 


228S0 




3017 


3989* 


4026 


SCCNT 


003270 G 


22t*t*» 


3202* 


3300* 


4137 




SCERN 


004314 G 


2wnn 


3255 








SCH = 


140004 G 


2114# 


2344 


2401 


2636 


3010 


SCHBK 


002446 G 


2175# 


2854 


2856* 


3018* 




SCHCNTs 


000010 G 


2029# 


2855 








SEQEND 


003634 G 


2369/r 


4932 


5169 






SETCH 


006714 G 


2635# 


4921 


5075 


5165 


5207 


SETRW 


006740 G 


2651# 




4957 


5076 


5166 


SETUP 


007722 G 


2666 


2827# 


4080 


5102 


5125 


SFF r: 


105010 G 


2096# 


2395 


3073 


4809 


4817 


SFPTBL 


002204 G 


1838# 










SFR = 


105410 G 


2099# 


2396 


3073 


4805 


4813 


SRF = 


104010 G 


2063# 


2384 


4827 


4835 




SRR = 


104410 G 


2066# 


2385 


3288 


3621 


4831 


STAFRN 


005642 G 


2540# 


3005 


3030 


3049 


3087 






3461 


3476 


3508 


3518 


3526 


STAER1 


006154 


2524 


2541 


25570 


2790* 


2791* 


STAER2 


006332 


2550 


2561# 








STAER3 


006411 


2551 


2S62M 








STAER4 


006447 


2552 


2S63# 








STAER5 


006467 


2553 


2S66# 


4038 






STAER6 


006276 


2534 


2548 


2560# 


2796* 




STAER7 


006246 


2525 


2542 


2559# 


2797* 


STAFLG 


003536 G 


232ar 


4022* 


4252* 


4267* 


4275 


STREAM 


003533 G 


231 9# 


3802 


3823 


5093* 


5145* 


SfTIH 


003414 G 


2265# 


3770* 


3778* 


3868 


3872* 


SVCGBL= 


000000 


1728# 


1742# 


1775 


1791 


180f 




2594 


4118 


4207 


4220 


4388 


SVCINS- 


000001 


1728# 


1739# 


1775 


1791 


1806 






2541 


2542 


2548 


2550 


2551 






2752 


3005 


3030 


3042 


3049 






3303 


3322 


3351 


3376 


3400 






3572 


3592 


3702 


3747 


3753 






4002 


4010 


4016 


4037 


4038 



USER SYMBOLS SEQ 0183 



2651 


3070 


3163 


4747 


4823 


4845 


4891 




3693 
















4125* 


4140 


5127* 


5129 










4725 


4733 


4741 












5244 
















5185 


5208 














5284 
















4839 
















3223 


3255 


3271 


3303 


3322 


3351 


3400 


3430 


4002 
















2792* 
















2798* 
















4605* 


4922 


4924* 


5077* 


5167* 


5209* 


5255* 




1807 


1818 


1838 


2518 


2540 


2582 


2586 


2590 


4444 


4484 


4519 


5403 


5441 


5542# 






1807 


1818 


1838 


2524 


2525 


2534 


2535 


2538 


2552 


2553 


2554 


2572 


2584 


2588 


2592 


2596 


3069 


3071 


3074 


3087 


3125 


3223 


3255 


3271 


3430 


3461 


3476 


3485 


3496 


3508 


3518 


3526 


3891 


3892 


3895 


3896 


3921 


3928 


3936 


3957 


4052 


4053 


4059 


4128 


4129 


4130 


4131 


4132 



TAPCAP 

TCCRA 

TCCO 

TCC1 

TCC2 

TCC3 

TCL4 

TCC5 

TCC6 

TCC7 

TC2RTN 

TIME1 

TIME2 
rOERM 

room 

TRAP04 

TRAP4 

TSAM 

rSBA = 

TSC.FC= 

TSC.TC= 

rsoB 
rssR 

rSSREG 

TSVCT 

TS.A16= 

TS.A17= 

TS.NBA= 

TS.NXH= 

TS.OFL= 

TS.R«R= 



021112 
012232 
012252 G 
012274 G 
012312 G 
012460 G 
012502 6 
013200 G 
013302 G 
013336 G 
012456 
003446 G 



003450 C, 
004273 6 
004544 
003540 
023132 
004522 
002456 
177717 G 
177761 G 
002456 G 
002466 G 



003464 G 
002476 G 
000400 G 
001000 G 
002000 G 
004000 G 
000100 G 
010000 G 



4137 


4141 


4U8 


4151 


4156 


4160 


4164 


4170 


4201 


4232 


4233 


4250 


4265 


4266 


4270 


4273 


4276 


4292 


4297 


4311 


4312 


4313 


4314 


4317 


4329 


4332 


4335 


4336 


4349 


4352 


4353 


4362 


4378 


4393 


4395 


4398 


4408 


4413 


4420 


4456 


4460 


4474 


4493 


4494 


4508 


4529 


4533 


4536 


4583 


4594 


4598 


4600 


4606 


4608 


4613 


4615 


4620 




4627 


4629 


4636 


4641 


4643 


4648 


4650 


4655 


4657 


4662 


4664 


a £ 9A 

4672 


4680 


t 9A4 

4701 


4908 


4961 


5051 


5068 


5147 


5150 


5189 


5193 


5226 


5230 


5279 


5326 


5403 


5410 


5411 


5413 


5427 


5441 


5450 


5451 


5452 


5453 


5454 


5455 


5457 


5458 


5459 


5460 


5461 


5462 


5463 


5464 


5465 


^ t £ £ 

5466 


5467 


5468 


5470 


5471 


5472 


5473 


5474 


5475 


5476 


5477 


5478 


^ / 9A 

5479 


P t AA 

5480 


5481 


5483 


5484 


5485 


P M A^ 

5486 


P t A^ 

5487 


r M A A 

5488 


m g A A 

5489 


^ £ A A 

5490 


^ M A« 

5491 


P S AA 

5492 


5494 


A A 

5522 


5542 


5552 






















1741# 


4583 


4600 


1 ^ AA 

4608 


4615 


S M. AA 

4622 


M M. AA 

4629 


4636 


4643 


» M. PA 

4650 


4657 


S A £ £ 

4664 


1743# 


1829 


1887 


2538 


A^ V% 

2572 


AF A # 

2584 


AP A A 

2588 


AP AA 

2592 


A ^t\£ 

2596 


t APA 

4059 


M AA« 

4201 


» 99A 

4378 


4474 


4508 


4551 


4598 


4606 


4613 


4620 


» £ A9 

4627 


4634 


46^1 


4648 


4655 


46 r 2 


4f 01 


4908 


5051 


cicn 
5150 


CI OT 

51 t3 


5^30 


5366 


CZ07 


553£ 


5552 


cccc 
5555 


1740# 


4578 


4915 


5066 


5159 


5203 


5239 












2613 


2881 


3794 


3908 


4669* 


4671* 


4686* 


4695* 










2043 


2882 


3795 




















1829* 


1887* 


2538* 


2572* 




2588* 


2592* 


2596* 


4059* 


4201* 


4378* 


4420* 


4508* 


4551* 


4598* 


4606* 


4613* 


4620* 


4627* 


4634* 


4641* 


4648* 


4655* 


4662* 


4701* 


4908* 


505 i* 


5150* 


5193* 


5230* 


5366* 


5427* 


5532* 
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4133 
4251 
4324 
4401 
4551 
4634 
4706 
5366 
5456 
5469 
5482 
5532 

SVCSUB:: 000000 1728* 

4680 

SVC TAG- 000000 1728* 

4420 
4662 

SVCTST= 000000 1728* 
SUBFLG 003526 G 2314* 
SUB.C = 010000 G 1961* 
SSLSVn- 010000 1728* 

4474* 
4672* 

4197* 5068 
3215 3238* 

3238 3254* 

3239 3271* 4342 

3240 3283* 

3241 3322* 

3242 3345* 

3243 3428* 

3244 3459* 

3245 3476* 
3285 3289 3308* 
2278* 2527* 2532 3000* 
3923* 3924* 3928 4059 
2279* 2528* 2533 3925* 
2476* 3049 
2486* 3030 
2330* 4392* 
4393 4431* 
2485* 3303 
2185* 3740 
1953* 

1954* 3142 

2182* 2185 2551 3045* 
2183* 3009 3029 3047 
4406 4530* 

2286* 2551 3029* 3141* 
2184* 4296* 4297 4456 
1950* 
1949* 
1948* 

1947* 3205 
1952* 4326 4406 
1946* 



3002* 3003 3067* 
4322* 4340 
3926* 3928 4334* 



3082* 
5278* 



3083 3084 
5280* 



4396 4431* 



3382* 
3080 

3142 
4532* 



3459* 
3127 

3199 
4533 



3734 
3141 

3205 



3998* 
4294* 



SEQ 0184 



3123* 3126* 3127 



4295* 4323* 4403* 4531* 

4325 4326 4394 4398 4405 
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SEQ 0185 



TS.SC : 

TS.SPE' 

TS.UPE^ 

I S4A0R 

TS4CL 

TS4INT 

TS4IN0 

TS4IN1 

TS4IN2 

TS4IN3 

TS4VCT 

TtARGC: 



100000 G 
0200C0 6 
000200 G 
040000 G 
027226 
002S26 G 
002516 G 
006566 G 
006574 G 
006602 G 
006610 G 
027243 
000001 



T»CODE» 023004 



TSERRN: 
T$EXCP= 



000001 

000000 



TSFLAG- 000041 



T$fREE= 
TSGMAN: 
T$MILI= 



T$LAST= 
TtLOLI: 



030700 
000000 
000010 



000001 
000000 



rsLSYNs 010000 



T$LTNO= 
TSNESr^ 



000006 
y77?77 



rsNso = 000000 

TSNSI = 000005 



rSNS2 = 000002 
fSPCNTs 000000 



19<«3« 

1945« 

1951# 

1944# 

5410 

2203# 

2196# 

2196 

2197 

2198 

2199 

5411 

1775# 

3496« 

4129# 

4329# 

4059# 

5459# 

5472# 

5485# 

1728# 

3461 # 

54iar 

5473# 

5488# 

2535# 

541 3# 

5542 

1728# 

541 0# 

5473# 

5488# 

1728# 

5410# 

5473# 

5488# 

1728# 

4508 

4701 

5542« 

1728# 

2584« 

4220# 

4583# 

4641 # 

5051# 

5427# 

1758# 

1818# 

2592 

4484# 

5230 

5532 

45834r 

4641 

5551* 



3199 

3009 

3205 

5422# 

4592* 

4297 

2582# 

2586# 

2590# 

2594* 

5423# 

2524# 

3572* 

4130# 

4332# 

5410« 

5460« 

5473# 

5486# 

3005« 

3476« 

541 U 

5474# 

5489# 

2554# 

5522« 

5556« 



3047 3079 3127 4325 



4594 
4533 



4405 



2525# 
3592* 
4131# 
4352# 
5411* 
546U 
5474# 
5487« 

303ar 

3508# 
5462# 
5475* 
5490« 
414U 



2534* 
3702* 
4132# 
4398# 
5413# 
5462f 
5475# 
5488« 
3049f 
3518# 
5463# 
5476# 
5491« 
4362« 



2541# 
3747# 
4133# 
440ftr 
5450f 
5463» 
5476« 
5409ir 
3087# 
3526# 
5464# 
5477f 
5492« 
4460« 




2548« 
3892f 

4i4af 

4495f 
5452f 

yMt 

S478« 
5491« 
3255# 
3895f 
5466# 
5481# 



2550f 
3896# 
4151f 
4594# 
5455f 
546«f 
5479» 
5492# 
3271# 
3921f 
5467« 
5482« 




4i8Kv 

S45$f 
54Mf 
5481« 
5522# 
3322# 
4232# 
5469f 
5484« 



2553f 
4037« 
4164« 

5456f 
54Mf 
5482f 



3376# 
40S8# 
4170i 

S457« 

5483f 



S470f 
5485« 



5471« 
54Mf 



5411* 


5462* 


5463# 


5464« 


5465« 


5466# 


5467# 


5468# 


5469« 


5474# 


5475# 


5476# 


5477# 


5478# 


548U 


5482# 


5483f 


5484# 


5489« 


5490# 


5491« 


5492f 












S542# 


5551 
















541U 


5462# 


5463# 


5464« 


54654r 


5466« 


5467* 


5468« 


5469# 


5474# 


5475# 


5476# 


5477# 


5478# 


5481# 


5482« 


5483# 


S484# 


5489# 


5490« 


5491# 


5492# 












1829 


1887 


2538 


2572 


2584 


2588 


2592 


2596 


4201 


4551 


4598 


4606 


4613 


4620 


4627 


4634 


4641 


4648 


4908 


5051 


5150 


5193 


5230 


5366 


5427 


5532 




1758# 


1818# 


1829# 


1838« 


1887« 


1888# 


1913# 


2518# 


2538# 


2586« 


2588# 


2590# 


2592# 


2594# 


2596# 


4087# 


411U 


4118# 


4378* 


4388# 


4420« 


4444# 


4474# 


4484# 


4508# 


4519# 


4551« 


4598# 


4600« 


4606# 


4608« 


4613# 


461 5« 


4620# 


4622# 


4627# 


4643# 


4648# 


4650« 


4655# 


4657* 


4662# 


4664# 


4672# 


4680f 


5066« 


515Q# 


5159# 


5193# 


5203# 


5230# 


5239# 


5366# 


5367# 


5441# 


5455 


5461 


5479 


5480 


5494 


5522 


5532# 


5543« 


1888 


1913# 


4087 


4111# 


4553 


4576# 


5367 


5392# 


5543 


1829 


1838# 


1887 


251 P# 


2538 


2540# 


2572 


2582« 


2584 


2594# 


2596 


4118# 


4201 


4207# 


4211 


4220/r 


4378 


4388« 


4508 


451 9# 


4551 


4578# 


4908 


491 5# 


5051 


5066# 


5150 


5239# 


5366 


5403« 


5413 


5427 


5441« 


5455 


5461 


5479 


4598 


4600# 


4606 


4608# 


4613 


461 5jr 


4620 


4622« 


4627 


4643« 


4648 


4650/ir 


4655 


4657# 


4662 


4664# 


4672 


4680# 



5552* 



5470ff 
5485« 



5470# 
5485# 

4378 
4655 



2540« 
4201« 
4553# 
4629# 
4701 # 
5392# 



2586« 

4420 

5159* 

5480 

4629« 

4701 



5471« 
5486# 



5471# 
54861 

4420 
4662 



2572# 
4207f 
4576# 
4634« 
4908# 
5403f 



2588 
4444« 

5193 
5494 



3485# 
4128# 
4311# 

S458« 
5471# 



nSIf 3400f 3430i 



S472f 
54«7# 



4494* 4536« 4706# 4961# 5147« 5189f 5226f 5326# 



5472f 
5487f 



5472« 
5487# 

4474 
4672 



2582# 
4211f 
4578« 
4636# 
491 5f 
5413 



2590# 
4474 
5203# 
5522 



4634 4636# 
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T$PTA8= 


010044 


5552# 


























T$PTHV= 


000001 


1775 


5556* 
























T$PTNU= 


000001 


1728* 


5552* 


5556 






















TJSAVL= 


M7777 


1728* 


























T$SEGL= 


177777 


1728* 


























T$SI2E= 


000004 


5542 


5556* 
























TSSUBN: 


000000 


1728* 


4578* 


4583* 


4600* 


4608* 


4615* 


4622* 


4629* 


4636* 


4643* 


4650* 


4657* 


4664* 


4680* 


4915* 


5066* 


5159* 


5203* 


5239* 
















T$TAGLs 


\77777 


1728* 
























4388* 


TSTAGN* 


010046 


1728* 


1818* 


1838* 


2518* 


2540* 


2582* 


2586* 


2590* 


2594* 


4118* 


4207* 


4220* 






4444* 


4484* 


4519* 


4578* 


4583* 


4600* 


4608* 


4615* 




4629* 


4636* 


4643* 


4650* 






4657* 


4664* 


4680* 


4915* 


5066* 


5159* 


5203* 


5239* 


5403* 


5441* 


5551* 


5552* 




r$TEMP= 


000000 


1791* 


1829* 


1887* 


1888* 


2535* 


2538* 


2554* 


2572* 


2584* 


2588* 


2592* 


2596* 


4059* 






4087* 


4141* 


4201* 


4211* 


4362* 


4378* 


4420* 


4460* 


4474* 


4494* 


4508* 


4536* 


4551* 






4553* 


4598* 


4606* 


4613* 


4620* 


4627* 


4634* 


4641* 


4648* 


4655* 


4662* 


4672* 


4701* 






4706* 


4908* 


4961* 


5051* 


5147* 


5150* 


5189* 


5193* 


5226* 


5230* 


5326* 


5366* 


5367* 






5410* 


5411* 


5413* 


5427* 


5450* 


5451* 


5452* 


5453* 


5454* 


5456* 


5457* 


5458* 


5459* 






5460* 


5462* 


5463* 


5464* 


5465* 


5466* 


5467* 


5468* 


5469* 


5470* 


5471* 


5472* 


5473* 






5474* 


5475* 


5476* 


5477* 


5478* 


5481* 


5482* 


5483* 


5484* 


5485* 


5486* 


5487* 


5488* 






5489* 


5490* 


5491* 


5492* 


5522* 


5532* 


5543* 


4629 












TSTESTr 


000006 


1728* 


4578* 


4583 


4600 


4608 


4615 


4622 


4636 


4643 


4650 


4657 


4664 






4680 


4915* 


5066* 


5159* 


5203* 


5239* 


5542 














TSTSTWs 


^77777 


1728* 


2524 


2525 


2534 


2538 


2541 


2542 


2548 


2550 


2551 


2552 


2553 


2572 






2752 


3005 


3030 


3049 


3069 


3087 


3125 


3223 


3255 


3271 


3303 


3322 


3351 






3376 


3400 


3430 


3461 


3476 


3485 


3496 


3508 


3518 


3526 


3572 


3592 


3702 






3747 


3753 


3891 


3892 


3895 


3896 


3921 


3928 


3936 


3957 


4002 


4010 


4016 






4037 


4038 


4052 


4059 


4128 


4129 


4130 


4131 


4132 


4133 


4137 


4148 


4151 






4156 


4160 


4164 


4170 


4201 


4232 


4250 


4265 


4270 


4273 


4276 


4292 


4297 






4311 


4313 


4314 


4317 


4329 


4332 


4336 


4349 


4352 


4353 


4362 


4378 


4393 






4395 


4398 


4401 


4408 


4413 


4420 


4456 


4460 


4474 


4493 


4508 


4529 


4533 






4551 


4583 


4594 


4598 


4600 


4606 


4608 


4613 


4615 


4620 


4622 


4627 


4629 






4634 


4636 


4641 


4643 


4648 


4650 


4655 


4657 


4662 


4664 


4672 


4680 


4701 






4706 


4908 


4961 


5051 


5068 


5147 


5150 


5189 


5193 


5226 


5230 


5326 


5366 


T$TSTS= 


000001 


1728* 


4578* 


4915* 


5066* 


5159* 


5203* 


5239* 














TSSAU = 


010016 


4519* 


4536 


4551 






















TSSAUT= 


010013 


4388* 


4420 
























T$$CLE* 


010014 


4444* 


4460 


4474 






















TfSOATs 


010045 


5552* 


5555 
























T$$OU = 


010015 


4484* 


4494 


4508 






















T$$HAR= 


010041 


5403* 


5413 


5427 






















TSSHU = 


010000 


1818* 


1829 
























TSSINI= 


010012 


4220* 


4362 


4378 






















T$WSG= 


010003 


2518* 


2535 


2538 


2540* 


2554 


2572 
















TftPC = 


000001 


5551* 


5556 
























T$$PRO= 


010011 


4207* 


























T$$PTA= 


010044 


5551* 


5552* 
























Tf$RPT= 


010010 


4118* 


4141 


4201 






















T$$SOF= 


010042 


5441* 


5522 


5532 






















TSSSRV= 


010007 


2582* 


2584 


2586* 


2588 


2590* 


2592 


2594* 


2596 




*tOCf 


*0<T* 






TSSSUB^ 


010033 


4583* 


4598 




4606 


4608* 


4613 


4615* 


46e0 


4622* 


4641 


4643* 


4648 


4650* 


4655 


4657* 


4662 


4664* 


4672 


4680* 


4701 






TSSSW = 


010001 


1838* 


1887 














5150 


5159* 


5189 


5193 


5203* 


T$$TES= 


010040 


4578* 


4706 


4908 


4915* 


4961 


5051 


5066* 


5147 




5226 


5230 


5239* 


5326 


5366 


















T1 


023342 G 


1791 


4578* 
























Tisye 


003531 G 


2317* 


3903 


4678* 


4703* 
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SYMBOLS 






023352 


4583# 
















Tl .10 


023702 


4657# 
















Tl . 11 


023722 


















Tl 1 ^ 

Tl .12 


A^y AA^ 

02A00O 


468C# 
















Tl .2 


AOTy "yd. 

023A76 


4600# 
















Tl .3 


023?22 


4608# 
















Tl 


023S42 


461 5# 
















T 1 .5 


023562 


4622« 
















T 1 .6 


023602 


4629# 
















T 1 .7 


A'j li. n 

02362? 


4636# 
















T 1 .8 


0236A2 


4643# 
















T I .V 


023662 


4650# 


















A'^y r* 


1791 


491 5# 














T T 

T3 


Aocy Ay r* 
025hOh G 


1791 


5066# 














T / 


0260^2 G 


1791 


5159# 














TC 

T5 


026206 G 


1791 


5203# 














TSWtOT 


027072 


4945 


5180 


>31 1 












T^ 

To 


0263A0 G 


1791 


5239# 














UAH = 


AAA OA A r- 

0002U0 u 


1920# 
















1 Mil _ 

UNL = 


1 AAy 11 ^ 

100^12 G 


2108# 


2399 






3442* 


3517* 


3525* 


3695 


UNRcC 


0034 r 6 G 


230O# 


3298* 


JJOV* 


3h13* 




00^630 G 


2489# 


3461 






4685 


4688 


4690 


4692 


i/cc vr 
Vr cXL 


UI33UH u 


3775 


3782 




hOOJ 


1/ C t Cl 1 


A1C77A (I 

U 1 3 If U U 


3811 


3814 














Vr TtWI 


AAVVAA A 


2245# 


3919* 


4137 












uc vr\AT 
V' TU^ 1 




2706 


3769* 


J 1 CO 


33 It 




3294 






wF vri r 
vr TrLu 


UUj3ch u 


231 2# 


2671 


7fl74* 


91177* 


3219 


3771 


5126* 


ut V r - 
Vr T ,L - 


UUU 1 uu u 


1970# 


2060 


COf 3 


COf 3 










ui w 7Dn 




2949# 


2954 


ctOU 












UDDr 

WnDL 




2229# 


4129 


HCt 1 " 












WnctL - 


UUUUcU u 


2039# 


3516 


J 1 3H 












LIB t TCH 


U 1 ' J Ic u 


4072# 


5115 












LIDD — 


IU?vv3 U 


2081# 


2390 














LIDDCr 


UUc ' cU u 


2232# 


3694 


H 1 3c 




3040 


4787 


4849 


5012 


LIDT * 




2057# 


2352 


CjOV 


CQfv 


LIDTV 


U 1 jO?U U 


3368 


3548# 














uDTvrr 

■n 1 It 1 


AATOCA <> 

UU3c7U U 


2242# 


3365* 


1 HO 












Wfl 1 TCn 




2296# 


3356* 


Jjf 3 


333t^ 


3561 


3568 


3590 




wn 1 T r U 


WjHi I U 


2295# 


3095 


33J'I 


33Q3^ 


3384* 








UDI dklD 


0037^0 fi 
UUc ' u 


2233# 


4133 










4404 


4455 




U 1 1 3 lO U 


3014 


3123# 




31 31 


3739 


3999 




tUUUI 1 u 


2090# 


2393 


C030 


3cno 


4074 


4783 


4795 




UTD — 
win - 


lU lUI 1 o 


2093# 


2394 


L70Q 










4773 


W 1 V - 


1 Uh I U3 u 


2060# 


2381 


Hi jj 


L7^7 
m 31 


4761 


4765 


4769 


W 1 VCKn 




2475# 


3891 




T091 

3yc 1 










LIT VQOr 
wl TsNr 


U 1 H 1 00 


3361* 


3605# 














LIT vnir\ 


U IH 102 


3360* 


3603# 


XtU.7 
JQHf 












LIT VLJDn 

wl TtmU 


U 1 H 1 Oh 


3359* 


3386 




Xf\Lt\ 
30H0 










A»ALwA- 


nnnnnn 


1728-r 


5413 






5494 


5522 






n 9T w 




1728# 


5461 












5522 


X$OFFS= 


000400 


1728# 


5413 


5455 


5461 


5479 


5480 


5494 


XSTRUE= 


000020 


17284' 


5455 










3283 


3292 


XO.BOTs 


000002 G 


2006# 


2689 


2724 


2734 


2757 


3173 


X0.EOT= 


000001 G 


2007# 


2693 


2725 


2739 


2758 


2767 


3809 


3818 


XO.LET= 


020000 C 


2003* 


3292 














XO.ONL= 


000100 G 


2005# 
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4699 



5012 5095 5119 



4901 



4926 5026 



3808 3854 
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SEO 0188 



X0.RLL= 

XO.RLSs 

XO.TMK= 

X2.0PH= 

X3.DCIC= 

X3.RNY= 

ZROPAT 

SBGNLE- 

SBRJMP- 

$ERFLG= 



010000 G 
OAOOOO G 
100000 G 
100000 G 
000010 6 
157400 C 
010426 
M7777 
177777 
000400 



SFSAND- 000310 



2004# 

2002# 

2001* 

2011# 

201 5# 

2016* 

2933# 

1730* 

5258* 

1730* 

2591* 

2651* 

2703* 

2814* 

2879* 

2925* 

3024* 

3109* 

3162* 

3300* 

3381* 

3435* 

3576* 

3625* 

3669* 

3690* 

3779* 

3862* 

3954* 

4007* 

4074* 

4162* 

4259* 

4295* 

4394* 

4531* 

4624* 

4686* 

4918* 

4941* 

4999* 

5072* 

5099* 

5127* 

5174* 

5217* 

5255* 

5308* 

5358* 

1730* 

2689 

2756 

3010 

3095 

3201 

3296 



3292 
3292 
3292 
3161 

4001 
2936 

5324* 

2526* 

2595* 

2652* 

2704* 

2815* 

2880* 

2933* 

3029* 

3111* 

3164* 

3302* 

3382* 

3436* 

3577* 

3631* 

3670* 

3691* 

3780* 

3863* 

3959* 

4012* 

4075* 

4165* 

4261* 

4296* 

4397* 

4532* 

4631* 

4687* 

4919* 

4950* 

5000* 

5073* 

5101* 

5129* 

5176* 

5218* 

5256* 

5309* 

5359* 

2545 

2693 

2757 

3013 

3146 

3205 

3297 



3206 



2943 2967 



2527* 

2607* 

2653* 

2709* 

2827* 

2882* 

2949* 

3034* 

3123* 

3169* 

3355* 

3384* 

3437* 

3579* 

3632* 

3672* 

3694* 

3781* 

3870* 

3972* 

4014* 

4076* 

4166* 

4262* 

4300* 

4399* 

4534* 

4638* 

4689* 

4920* 

4951* 

5001* 

5074* 

5110* 

5133* 

5184* 

5219* 

5263* 

5314* 

5360* 

2606 

2700 

2758 

3022 

3159 

3206 

3345 



2528* 
2609* 
2664* 
2736* 
2839* 
2885* 
2973* 
3037* 
3126* 
3174* 
3356* 
3385* 
3442* 
3580* 
3633* 
3673* 
3696* 
3793* 
3872* 
3975* 
4015* 
4078* 
4239* 
4267* 
4302* 
4400* 
4580* 
4645* 
4691* 
4924* 
4952* 
5002* 
5077* 
5112* 
5138* 
5186* 
5220* 
5267* 
5316* 

2608 
2722 
2759 
3028 
3161 
3217 
3349 



2530* 
2610* 
2672* 
2737* 
2846* 
2895* 
2981* 
3038* 
3141* 
3181* 
3359* 
3386* 
3459* 
3581* 
3634* 
3674* 
3697* 
3795* 
3873* 
3977* 
4022* 
4079* 
4241* 
4268* 
4306* 
4403* 
4581* 
4652* 
4693* 
4926* 
4954* 
5003* 
5078* 
5116* 
5139* 
5205* 
5221* 
5269* 
5317* 

2613 
2723 
2767 
3036 
3163 
3218 
3350 



2531* 
2611* 
2673* 
2751* 
2848* 
2896* 
3000* 
3067* 
3142* 
3207* 
3360* 
3389* 
3514* 
3584* 
3639* 
3676* 
3699* 
3797* 
3889* 
3989* 
4025* 
4125* 
4242* 
4271* 
4322* 
4407* 
4585* 
4659* 
4695* 
4927* 
4955* 
5012* 
5091* 
5118* 
5140* 
5206* 
5222* 
5270* 
5337* 

2665 
2724 
2771 
3040 
3166 
3219 
3354 



2532* 
2612* 
2674* 
2788* 
2854* 
2897* 
3002* 
3077* 
3143* 
3209* 
3361* 
3394* 
3517* 
3585* 
3645* 
3678* 
3769* 
3799* 
3898* 
3990* 
4026* 
4140* 
4247* 
4278* 
4323* 
4412* 
4590* 
4666* 

m 

4956* 
5026* 
5092* 
5119* 
5145* 
5209* 
5224* 
5273* 
5338* 

2667 
2725 
2811 
3041 
3167 
3221 
3357 



2533* 
2614* 
2675* 
2793* 
2856* 
2898* 
3011* 
3079* 
3144* 
3212* 
3362* 
3396* 
3525* 
3586* 
3646* 
3680* 
3770* 
3829* 
3901* 
3991* 
4054* 
4149* 
4248* 
4280* 
4334* 
4431* 
4591* 
4669* 
^«* 
4929* 
4958* 
5041* 
5093* 
5120* 
5161* 
5210* 
5241* 
5277* 
5339* 

2669 
2726 
2838 
3047 
3168 
3230 
3369 



2543* 
2616* 
2677* 
2796* 
2864* 
2899* 
3017* 
3080* 
3145* 
3214* 
3363* 
3403* 
3554* 
3620* 
3647* 
3681* 
3772* 
3831* 
3902* 
3992* 
4056* 
4150* 
4252* 
4283* 
4350* 
4491* 
4592* 
4671* 
4703* 
4930* 
4994# 
5043* 
50944r 
5121* 
5162* 
5211* 
5242* 
5278* 
5340* 

2670 
2734 
2845 
3063 
3172 
3283 
3375 



2544* 
2617* 
2679* 
2797* 
2865* 
2919* 
3018* 
30e'»* 
314/* 
3222* 
3365* 
3404* 
3557* 
3621* 
3648* 
3683* 
3773* 
3832* 
3922* 
3993* 
4057* 
4154* 
4253* 
4288* 
4357* 
4492* 
4602* 
4674* 
4714* 
4935* 
4995* 
504a 
5095* 
5122* 
5163* 
5212* 
5245* 
5282* 
5341* 

2671 
2739 
2873 
3070 
3173 
3287 
3393 



2547* 
2619* 
2685* 
2798* 
2872* 
2920* 
3020* 
3085* 
3148* 
3231* 
3366* 
3410* 
3560* 
3622* 
3649* 
3685* 
3774* 
3845* 
3934* 
3995* 
4058* 
4157* 
4254* 
4290* 
4358* 
4527* 
4605* 
4678* 
4716* 
4954* 
4996* 
5045* 
5096* 
5125* 
5164* 
5215* 
5245* 
5292* 
5555* 

2676 
2745 
2881 
3073 
3195 
3288 
3395 



2583* 
2622* 
2690* 
2810* 
2874* 
2922* 
3021* 
3089* 
3150* 
3254* 
3367* 
3415* 
3563* 
3623* 
3650* 
3686* 
3777* 
5847* 
5951* 
5996* 
4061* 
4158* 
4256* 
4291* 
4560* 
4528* 
4610* 
4682* 
4718* 
4957* 
4997* 
5046* 
5097* 
5124* 
5167* 
5214* 
5246* 
5297* 
5556* 

2687 
2750 
2924 
5076 
5199 
3292 
3599 



258/* 
2655* 
2695* 
2812* 
2877* 
2923* 
3023* 
3097* 
3160* 
5298* 
3378* 
3433* 
3575* 
5624* 
3651* 
5688* 
5778* 
5859* 
5952* 
5998* 
4075* 
4161* 
4257* 
4294* 
4592* 
4550* 
4617* 
4684* 
4917* 
4959* 
4996* 
5069* 
5096* 
5126* 
5172* 
5216* 
5254* 
5502* 
5557* 

2688 
2755 
3005 
5084 
5200 
3294 
3405 
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3c 1 c 


791^ 
3C 1* 


7917 
jC I r 


X91A 
jC IO 


7910 
3c 17 


7991 
3ccl 


7999 


7970 
3c30 


7971 
3c3 1 


79C/ 
3c3* 


79B7 
3c03 


79fl7 
3cOf 


3cOO 


7909 

3C7C 


790/ 

3C7* 


790A 

3C70 


7307 
3cyf 


790B 


7700 

33UU 


77n9 

33Uc 


77/ C 
33*3 


77/0 
33*7 


77CO 
3350 


77C/ 
333* 


77CC 
3333 


77CA 
3330 


77C7 
333 f 


77CO 
3397 


77AO 
330U 


77A1 
330I 


77A9 


77A7 

3303 


77AC 

3309 


77AA 
3300 


77A7 
330 f 


7 7 AO 
3307 


777C 
33f 9 


777fl 
33f 0 


77fl1 
330 1 


77S9 
330c 


33o* 


77AC 
3309 


77ftA 
3900 


77fiO 

JJ07 


7707 
3373 


7 70/ 
337* 


770C 
3373 


770A 
3370 


7700 
3377 


7/07 
3*03 


7/0/ 
3*0* 


7/OC 
3*09 


7/ OA 
3*00 


7A10 
3* lU 


7/1C 
3* 1 9 


7/90 


7Z77 


7/7Z. 
3*1 3h 


7/7C 
3*35 


7/7A 
3*30 


7/77 
3*3 f 


7//9 
3**C 


7/ CO 
3*97 


7/fl/ 
3*0* 


7C07 
39Ur 


7C1/ 
33 1* 


7C1C 
39 19 


7C1A 
33 lO 


7C17 
39 1 f 


j5ch 


7C9C 


39HO 


393* 


3990 


7CC7 

339f 


7^A0 
390w 


7CAX 


990*i 


9900 


^^71 


7C7^ 
99f •» 


J9f J 


7C7A 


7C77 
39 f f 


33f O 


7C70 
39f 7 


3901/ 


7^01 
33o 1 


390* 


7^ftC 
3909 


9900 


7^00 


7C01 
397 1 


7A90 
90Cv 


90C 1 




7A97 
30c3 


7 A 9/ 
30cH 


30c3 


7 A 70 
3030 


7A71 
303 1 


7A79 
303c 


7A77 
3033 


7A7A 


7A70 
3097 


30** 


30*9 


90H0 


7A/7 


7AAB 
30HO 


7A/0 
30h7 


3090 


7AC1 
303 1 


7AC/ 
309* 


7AAA 
3000 


7AA0 
3007 


7A70 
30f w 


7A71 
30f 1 


7A79 
90f C 


7A7^ 
30f 9 


7A7^ 
90r ■» 


7A7C 


30r0 


30rO 


7A70 
30f 7 


7AflO 
3000 


300 1 


3003 


300* 


3009 


3000 


7AAA 
9000 


XAAO 
9007 


JOTw 


307 1 


7A07 
3073 


7AO/ 
307H 


7AOC 
3073 


7A0A 
3Q70 


7A07 
307f 


<A00 
3077 


7700 
3r vU 


7701 


77AO 
9r 07 


7770 
3r r w 


^771 
3r r 1 


^775 
jl 1 c 


7777 


777/, 
3' f •» 


777* 
3f f 0 


7777 


777fi 

3f f 0 


7770 
3f f 7 


77ftO 
3r 00 


77111 
3r 0 1 


770^ 
3f 73 


^70A 
3r 7* 


770C 
3r 79 


^707 
9r 7r 


9r T7 


711 nn 


7&nA 
jOvO 


7fl07 
3oUf 


3000 


7flOO 
3007 


30 lU 


30 10 


^fl9ft 
30cO 


90C7 




jOjC 


90*I9 


90*10 


7B/7 


3o5U 


3093 


303* 


3033 


3090 


3097 


900 1 


^flA9 


300J 


900f 


9000 


90r w 


7879 


7A77 
30 r 3 


3007 


71100 
307U 


307* 


7R0ft 
3070 


7001 

j7U 1 


X009 

97wC 




^007 
J7wr 




J7W7 


^9?? 
jycc 


7097 


707A 
373h 


707C 
3739 


3731 


70C9 
373e 


70C^ 
3793 


379* 


97 JO 


^OSO 

97 37 


^07? 
97f C 


^07S 

J7f 9 


^077 

J7f f 


TOHO 

9707 


700n 


7001 
3771 


7009 
377C 


7007 
3773 


700^ 
377* 


700C 
3779 


700A 

3770 


700ft 

J770 




AOOA 
•♦UUO 


^007 


/01 1 


■tU 1 c 


hUIh 


/ Ol C 
hUI 3 


/ft17 


/01B 
*010 


/n99 
*Ocr 


*0c9 


/09A 
*UcO 


/nco 

*U9w 


/0C1 
HW9 1 


/OC/ 


/OCA 

HW90 




HV JO 




/rt77 

HVf 3 




/n7C 


/n7A 
*0f 0 


*Uf 0 


A 070 
*Uf 7 


/19S 
* 1 C9 


/1 97 

1 Cf 


H 1 jH 


/1/n 

H 1 HV 


H 1 ■♦7 


Also 

H 1 Jv 


/ 1 o 
HI 5c 


/1C7 
H 1 33 


/I C/ 
•» I9h 


/1C7 
* 1 9f 


/I CB 
* 1 90 


/1A1 
* 101 


/I A9 
* 1 Oe 


/I A7 
* 1 03 


/I A^ 
*♦ I09 


•» 1 OO 


/9X1 
HC9 1 


HCjf 


HC97 








4?46 


4247 

■f t "f f 


4248 


4252 


4253 


4254 


4256 


4257 


4259 


4261 


4262 


4267 


4268 


4271 


4272 


4274 


4275 


4277 


4278 


4280 


4283 


4288 


4289 


4290 


4291 


4293 


4294 


4295 


4296 


4298 


4299 


4300 


4302 


4306 


4310 


4318 


4320 


4322 


4323 


4325 


4326 


4334 


4340 


4348 


4350 


4351 


4357 


4358 


4360 


4391 


4392 


4394 


4396 


4397 


4399 


4400 


4403 


4405 


4406 


4407 


4412 


4431 
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SEQ 0191 



$F$IF « 000110 



SFSINC= 000210 
SF$LOO= 000200 
$FSNAM= 000160 
SFSNO = 000403 



4454 


4491 


4492 


I*5'd7 


4528 


4530 


4531 


4532 


4534 


4580 


4581 


4585 


4589 


4590 


4591 


4592 


4593 


4602 


4605 


4610 


4617 


4624 


4631 


4638 


4645 


4652 


4659 


4666 


4669 


4671 


4674 


4675 


4678 


4682 


4684 


4686 


4687 


4689 


4691 


4693 


4695 


4696 


4698 


4703 


4714 


4715 


4716 


4718 


4917 


4918 


4919 


4920 


4922 


4924 


4926 


4927 


4928 


4929 


4930 


4932 


4933 


4934 


4937 


4939 


4941 


4950 


4951 


4952 


4954 


4955 


4956 


4958 


4994 


4995 


4996 


4997 


4998 


4999 


5000 


5001 


5002 


5003 


5012 


5026 


5041 


5043 


5044 


5045 


5046 


5067 


5069 


5072 


5073 


5074 


5077 


5078 


5089 


5091 


5092 


5093 


5094 


5095 


5096 


5097 


5098 


5099 


5101 


5104 


5109 


5110 


5112 


5114 


5116 


5118 


5119 


5120 


5121 


5122 


5123 


5124 


5126 


5127 


5129 


5130 


5133 


5138 


5139 


5140 


5145 


5161 


5162 


5163 


5164 


5167 


5169 


5172 


5174 


5176 


5184 


5186 


5205 


5206 


5209 


5210 


5211 


5212 


5213 


5214 


5216 


5217 


5218 


5219 


5220 


5221 


5222 


5224 


5241 


5242 


5243 


5245 


5246 


5254 


5255 


5256 


5260 


5263 


5267 


5269 


5270 


5273 


5277 


5278 


5282 


5285 


5288 


5292 


5294 


5295 


5296 


5297 


5300 


5302 


5307 


5308 


5309 


5310 


5314 


5316 


5317 


5337 


5338 


5339 


5340 


5341 


5355 


5356 


5357 


5358 


5359 


5360 


















1730# 


2545 


2549 


2606 


2608 


2613 


2615 


2618 


2620 


2621 


2623 


2669 


2670 


2671 


2676 


2678 


2680 


2681 


2682 


2688 


2689 


2691 


2692 


2693 


2696 


2697 


2700 


2702 


2723 


2724 


2725 


2726 


2728 


2729 


2731 


2732 


2733 


2734 


2738 


2739 


2742 


2743 


2745 


2746 


2747 


2750 


2753 


2756 


2757 


2758 


2759 


2761 


2762 


2764 


2765 


2766 


2767 


2770 


2771 


2773 


2774 


2775 


2838 


2840 


2845 


2847 


2849 


2873 


2876 


2878 


2881 


2883 


2924 


2926 


3003 


3008 


3010 


3019 


3028 


3033 


3036 


3039 


3040 


3041 


3043 


3044 


3047 


3051 


3063 


3065 


3066 


3070 


3072 


3073 


3075 


3076 


3078 


3081 


3084 


3091 


3095 


3099 


3100 


3159 


3161 


3163 


3165 


3166 


3167 


3168 


3170 


3171 


3172 


3173 


3175 


3176 


3177 


3178 


3179 


3180 


3182 


3195 


3197 


3198 


3199 


3200 


3201 


3203 


3204 


3205 


3206 


3208 


3210 


3211 


3213 


3216 


3217 


3218 


3219 


3221 


3225 


3226 


3227 


3228 


3229 


3230 


3232 


3283 


3286 


3287 


3288 


3290 


3291 


3292 


3294 


3296 


3297 


3299 


3301 


3305 


3306 


3307 


3345 


3347 


3348 


3349 


3350 


3353 


3354 


3357 


3369 


3371 


3372 


3375 


3383 


3387 


3388 


3390 


3391 


3393 


3395 


3397 


3398 


3399 


3402 


3405 


3406 


3408 


3409 


3414 


3416 


3417 


3429 


3432 


3434 


3441 


3443 


3484 


3497 


3507 


3513 


3515 


3516 


3522 


3523 


3524 


3528 


3529 


3548 


3556 


3558 


3559 


3564 


3566 


3567 


3568 


3570 


3571 


3573 


3574 


3578 


3582 


3583 


3587 


3590 


3591 


3593 


3594 


3595 


3630 


3640 


3644 


3654 


3657 


3658 


3668 


3671 


3675 


3677 


3693 


3695 


3698 


3700 


3701 


3703 


3704 


3705 


3706 


3707 


3708 


3771 


3776 


3783 


3784 


3794 


3796 


3807 


3808 


3809 


3810 


3812 


3813 


3815 


3816 


3817 


3818 


3821 


3822 


3828 


3830 


3850 


3852 


3853 


3854 


3855 


3857 


3858 


3860 


3861 


3864 


3865 


3867 


3868 


3871 


3874 


3875 


3876 


3877 


3878 


3890 


3893 


3894 


3897 


3903 


3905 


3907 


3908 


3909 


3912 


3913 


3914 


3927 


3929 


3935 


3937 


3938 


3939 


3956 


3958 


4001 


4003 


4005 


4006 


4009 


4011 


4013 


4017 


4018 


4023 


4024 


4050 


4051 


4060 


4062 


4063 


4134 


4136 


4152 


4153 


4155 


4163 


4167 


4169 


4231 


4235 


4237 


4244 


4246 


4249 


4272 


4274 


4275 


4277 


4279 


4281 


4282 


4284 


4285 


4286 


4293 


4298 


4299 


4301 


4303 


4304 


4305 


4310 


4315 


4318 


4325 


4326 


4328 


4330 


4331 


4333 


4340 


4343 


4347 


4348 


4351 


4354 


4355 


4396 


4402 


4405 


4406 


4410 


4411 


4415 


4416 


4593 


4595 


4922 


4925 


5067 


5070 


5109 


5111 


5114 


5130 


5136 


5137 


5288 


5290 


5295 


5296 


5298 


5299 


5300 


5303 


5304 


5307 


5310 


5312 


5313 


5315 






















1730# 


4322 


4334 


4337 


433P 


















1730# 


























1730# 


3549 


3551 


3562 


3589 


4321 


4339 








2545 


2547 


2583 


1730* 


2526 


2527 


2528 


2530 


2531 


2532 


2533 


2543 


2544 


2587 


2591 


2595 


2606 


2607 


2608 


2609 


2610 


2611 


2612 


2614 


2616 


2617 


2619 


2622 


2635 


2651 


2652 


2653 


2664 


2665 


2667 


2670 


2672 


2673 


2674 


2675 


2676 


2677 


2679 


2685 


2687 


2688 


2689 


2690 


2693 


2695 


2700 


2703 


2704 


2709 


2722 


2725 


2724 


2725 


2734 


2736 


2717 


2739 


2751 


2755 


2756 
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$F$OR = 000320 
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CROSS REFERENCE 


TABLE ~ 


USER 


SYMBOLS 












SEQ 


2757 


2758 


cfOr 


37ka 


2793 


2796 


2797 


2798 


2810 


2811 


2812 


2814 


2815 


2827 


2838 




3fl/,C 


2846 


2848 


2854 


2856 


2864 


2865 


2872 


2873 


2874 


2877 


2879 


eooU 


3afl3 
eOOc 


2885 


2895 


2896 


2897 


2898 


2899 


2919 


2920 


2922 


2923 


2924 




£733 


2949 


2973 


2981 


3000 


3002 


3003 


3010 


3011 


3013 


3017 


3018 




JVC 1 


3022 


3023 


3024 


3029 


3034 


3037 


3038 


3040 


3041 


3047 


3063 




xmn 

3Uf u 


3073 


3077 


3079 


3080 


3082 


3084 


3085 


3089 


3097 


3109 


3111 




XI 3<l 
3 1 cO 


3141 


3142 


3143 


3144 


3145 


3146 


3147 


3148 


3150 


3160 


3161 


HOC 


3 1 03 


3164 


3166 


3167 


3168 


3169 


3172 


3173 


3174 


3181 


3195 


3199 




XOM 
3cU3 


3206 


3207 


3209 


3212 


3214 


3217 


3218 


3222 


3231 


3254 


3283 


icof 


3c00 


3292 


3298 


3300 


3302 


3345 


3349 


3355 


3356 


3359 


3360 


3361 




3303 


3365 


3366 


3367 


3369 


3375 


3378 


3381 


3382 


3384 


3385 


3386 


3JVf 


3373 


3394 


3395 


3396 


3399 


3403 


3404 


3406 


3410 


3415 


3429 


3433 


XLX^ 


XLXA 
3<l30 


3437 


3442 


3459 


3507 


3514 


3515 


3516 


3517 


3524 


3525 


3548 


j33*t 


3330 


3557 


3560 


3563 


3564 


3569 


3574 


3575 


3576 


3577 


3578 


3579 


330U 


330 1 


3584 


3585 


3586 


3620 


3621 


3622 


3623 


3624 


3625 


3631 


3632 


3033 


XAXL 
303'f 


3639 


3644 


3645 


3646 


3647 


3648 


3649 


3650 


3651 


3654 


3669 


Xti7C\ 
jOfv 


30r 1 


3672 


3673 


3674 


3675 


3676 


3678 


3679 


3680 


3681 


3683 


3684 


3003 


3O00 


3688 


3689 


3690 


3691 


3694 


3696 


3697 


3699 


3769 


3770 


3772 


3f f 3 


X77L 


3776 


3777 


3778 


3779 


3780 


3781 


3793 


3795 


3797 


3799 


3800 


3oU0 


XU\7 
30Ur 


3808 


3809 


3818 


3828 


3829 


3831 


3832 


3845 


3846 


3847 


3854 


3033 


3030 


3859 


3861 


3862 


3863 


3867 


3868 


3870 


3872 


3873 


3889 


3890 


XRQL 
30t*i 


30T0 


3901 


3902 


3907 


3909 


3922 


3927 


3934 


3935 


3951 


3952 


3953 


3T3*l 


3730 


3959 


3972 


3975 


3977 


3989 


3990 


3991 


3992 


3993 


3994 


3995 


XQQ(\ 
3~~0 


37TO 


4001 


4007 


4011 


4012 


4014 


4015 


4017 


4022 


4025 


4026 


4054 




•Iw3» 


4058 


4061 


4073 


4074 


4075 


4076 


4078 


4079 


4125 


4127 


4140 


L^LQ 




4152 


4153 


4154 


4157 


4158 


4161 


4162 


4163 


4165 


4166 


4231 






4241 


4242 


4247 


4248 


4252 


4253 


4254 


4256 


4257 


4259 


4261 


*tcOc 


L7f\7 
tcot 


4268 


4271 


4278 


4280 


4283 


4288 


4289 


4290 


4291 


4294 


4295 


^30A 


A30fl 

*»C70 


4299 


4300 


4302 


4306 


4310 


4318 


4320 


4323 


4325 


4326 


4327 


LXLt\ 
•»3*lU 


LX^n 

•»33U 


4351 


4357 


4358 


4360 


4391 


4392 


4394 


4397 


4399 


4400 


4403 


HHVJ 


"♦two 


4407 


4412 


4431 


4454 


4491 


4492 


4527 


4528 


4530 


4531 


4532 




HjOV 


4581 


4585 


4589 


4590 


4591 


4592 


4593 


4602 


4605 


4610 


4617 


HOC** 


HO J 1 


4638 


4645 


4652 


4659 


4666 


4669 


4671 


4674 


4675 


4678 


4682 


too*! 


tooo 


4687 


4689 


4691 


4693 


4695 


4696 


4698 


4703 


4714 


4715 


4716 


^71R 

Hf lO 


Hy 1 f 


4918 


4919 


4920 


4924 


4926 


4927 


4928 


4929 


4930 


4932 


4933 


•»t3*» 




4939 


4941 


4950 


4951 


4952 


4954 


4955 


4956 


4958 


4994 


4995 




Hyyi 


4998 


4999 


5000 


5001 


5002 


5003 


5012 


5026 


5041 


5043 


5044 


3v*l3 


3VHO 


5069 


5072 


5073 


5074 


5077 


5078 


5089 


5091 


5092 


5093 


5094 


3vT3 




5097 


5098 


5099 


5101 


5104 


5109 


5110 


5112 


5114 


5116 


5118 


3 1 1 T 


3 ICU 


5121 


5122 


5123 


5124 


5126 


5127 


5129 


5130 


5133 


5138 


5139 


3 1 *»U 


3 1 •» J 


5161 


5162 


5163 


5164 


5167 


5169 


5172 


5174 


5176 


5184 


5186 


3cV/3 


S30A 


5209 


5210 


5211 


5212 


5213 


5214 


5216 


5217 


5218 


5219 


5220 


jcc . 


S333 


5224 


5241 


5242 


5243 


5245 


5246 


5254 


5255 


5256 


5260 


5263 


S3A7 

3cOr 


jcoy 


5270 


5273 


5277 


5278 


5282 


5285 


5288 


5292 


5294 


5295 


5296 






5302 


5307 


5308 


5309 


5310 


5314 


5316 


5317 


5337 


5338 




331W 


'iXL^ 


5355 


5356 


5357 


5358 


5359 


5360 




2687 




1730# 


2545 


3AnA 
cOUO 


3Anfl 

cOvO 


2613 


2665 


2667 


2669 


2670 


2671 


2676 


2688 


2689 


2693 


37nn 


3793 
Cf cc 


2723 


2724 


2725 


2726 


2734 


2739 


2743 


2750 


2755 


2756 


2757 


Cf 30 


97S0 

Cf 37 


2767 


2771 


2811 


2838 


2845 


2873 


2881 


2924 


3003 


3010 


3013 


T033 
jMCC 


3UcO 


3036 


3040 


3041 


3047 


3063 


3070 


3073 


3076 


3084 


3095 


3146 


3159 


3161 


3163 


3166 


3167 


3168 


3172 


3173 


3195 


3199 


3200 


3201 


3205 


3206 


3217 


3218 


3219 


3221 


3230 


3283 


3287 


3288 


3292 


3294 


3296 


3297 


3345 


3349 


3350 


3354 


3357 


3369 


777C 

3373 


33V3 


3373 


XXtM 

5599 


3hU3 


3406 


3429 


3434 


3484 


3507 


3515 


3516 


3524 


3548 


3556 


3564 


3568 


3571 


3574 


3578 


3590 


3591 


3630 


3644 


3654 


3668 


3671 


3675 


3679 


3684 


3689 


3693 


3695 


3700 


3701 


3771 


3776 


3794 


3800 


3806 


3807 


3808 


3809 


3810 



L 15 

PARAMETER COOING MACYll 30(10A6) 12-JUL-83 09:44 PAGE 80-21 

CZTUVB.PII 12-JUL-83 09:26 CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0193 



lf*RTN= 000300 
SFtSEL: OOOUO 
SFSTHE= 000330 



SFSTRU= 000404 
tFSUNT:r 000130 



SFSUHIs 000120 



SFtYES- 000402 



3818 3828 

3903 3907 

4018 4050 

4275 4289 

4396 4405 

5109 5114 
1730# 
1730# 

1730# 2545 

2723 2724 

2771 2838 

3063 3070 

3173 3195 

3287 3288 

3393 3395 

3556 3564 

3675 3693 

3828 3850 

3908 3909 

4152 4153 

4326 4340 

5288 5295 
1730# 

1730# 3001 

3561 3588 

4940 5168 

1730« 2665 

2767 2m 

3205 3219 
3692 3701 
4127 4139 
4589 4597 
5171 5260 
1730* 2526 
2583 2587 
2615 2616 
2664 2665 
2679 2680 
2696 2697 
2729 2731 
2747 2750 
2766 2767 
2811 2812 
2854 2856 
2882 2883 
2925 2926 
3017 3018 
3037 3038 
3070 3072 
3089 3091 
3144 3145 
3166 3167 
3179 3180 

3206 3207 
3221 3222 
3287 3288 



3846 38b0 3853 

3908 3909 3927 

4051 4127 4134 

4298 4299 4310 

4406 4454 4589 

5130 5169 5260 



2606 2608 2613 

2725 2726 2734 

2845 2873 2881 

3073 3076 3084 

3199 3200 3201 

3292 3294 3296 

3399 3405 3406 

3568 3571 3574 

3695 3700 3701 

3853 3854 3855 

3927 3935 3956 

4163 4231 4237 

4348 4351 4396 

5296 5300 5307 

3009 3068 3083 

3906 3933 3974 
5175 

2667 2687 2693 

2811 2813 3013 

3283 3288 3294 

3300 3806 3818 

4240 4243 4289 

4675 4677 4715 

5285 5294 5300 

2527 2528 2530 

2591 2595 2606 

2617 2618 2619 

2667 2669 .2670 

2681 2682 ^2685 

2700 2702 2703 

2732 2733 2734 

2751 2753 2755 

2770 2771 2773 

2814 2815 2827 

2864 2865 2872 

2885 2895 2896 

2933 2949 2973 

3019 3020 3021 

3039 3040 3041 

3073 3075 3076 

3095 3097 3099 

3146 3147 3148 

3168 3169 3170 

3181 3182 3195 

3208 3209 3210 

3225 3226 3227 

3290 3291 3292 



3854 3855 

3935 3953 

4152 4153 

4318 4320 

4593 4675 

5285 5288 



2669 
2739 
2924 
3095 
3205 
3297 
3429 
3578 
3771 
3858 
4001 
4246 
4405 
5310 



3858 


3861 


3867 


3868 


3890 


3894 


3956 


3994 


4001 


4006 


4011 


4017 


4163 


4231 


4237 


4240 


4246 


4272 


4125 


4326 


4340 


4348 


4351 


4391 


4715 


4922 


4932 


5067 


5089 


5104 


5294 


5295 


5296 


5300 


5307 


5310 



3110 
3976 



2699 2705 

3016 3022 

3349 3350 

3826 3834 

4308 4318 

4717 4932 

5306 5318 

2531 2532 

2607 2608 

2620 2621 

2671 2672 

2687 2688 

2704 2709 

2736 2737 

2756 2757 

2774 2775 

2838 2839 

2873 2874 

2897 2898 

2981 3000 

3022 3023 

3043 3044 

3077 3078 

3100 3109 

3150 3159 

3171 3172 

3197 3198 

3211 3212 

3228 3229 

3294 3296 



2670 


2671 


2676 


2688 


2689 


2693 


2700 


27i,5 


2750 


2756 


2757 


2758 


2759 


2767 


3003 


3010 


3028 


3036 


3040 


3041 


3047 




71 ill 
5101 


71 A7 


71 

^100 


71iL7 
3l0f 


7liLB 
51 OO 


71 79 


3206 


3217 


3218 


3219 


3221 


3230 


3283 


3345 


3349 


3350 


3354 


3357 


3369 


3375 


3434 


3484 


3507 


3515 


3516 


3524 


3548 


3590 


3591 


3630 


3644 


3654 


3668 


3671 


3776 


3794 


3807 


3808 


3809 


3810 


3818 


3861 


3867 


3868 


3890 


3894 


3903 


3907 


4006 


4011 


4017 


4018 


4050 


4051 


4134 


4272 


4275 


4298 


4299 


4310 


4318 


4325 


4406 


4593 


4922 


5067 


5109 


5114 


5130 


3112 


3124 


3127 


3364 


3373 


3550 


3552 


4159 


4168 


4255 


4258 


4260 


4263 


4931 



2708 2722 27^, 

3025 3040 3073 

3399 3679 3682 

3846 3848 3953 

4320 4346 4391 

4936 5089 5104 
5322 

2533 2543 2544 

2609 2610 2611 

2622 £623 2635 

2673 2674 2675 

2689 2690 2691 

2722 2725 2724 

2738 2739 2742 

2758 2759 2761 

2788 2793 2796 

2840 2845 2846 

2876 2877 2878 

2899 2919 2920 

3002 3003 3008 

3024 3028 3029 

304? 3051 3063 

3079 3080 3081 

3111 3123 3126 

3160 3161 3162 

3173 3174 3175 

3199 3200 3201 

3213 3214 3216 

3230 3231 3232 

3297 3298 3299 



2739 2749 2755 

3146 3149 3161 

3684 3687 3689 

3955 3994 3997 

4418 4454 4458 

5113 5143 5169 

2545 2547 2549 

2612 2613 2614 

2651 2652 2653 

2676 2677 2678 

2692 2693 2695 

2725 2726 2728 

2743 2745 2746 

2762 2764 2765 

2797 2798 2810 

2847 2848 2849 

2879 2880 2881 

2922 2923 2924 

3010 3011 3013 

3033 3034 3036 

3065 3066 3067 

3082 3084 3085 

3141 3142 3143 

3163 3164 3165 

3176 3177 3178 

3203 3204 320S 

3217 3218 3219 

3254 3283 3286 

3300 3301 3302 



N 15 



C2TUV8.P11 



MACYll 30(1046) 12-JUL-83 09:44 PAGE 80-22 



flFLEV* y77777 



12- JUL -83 09:26 




CROSS REFERENCE 


TABLE — 


USER SYMBOLS 












SEQ 


3305 


3306 


^307 


33<»5 


V9 4 ^ 

3347 


3348 


3349 


3350 


9 9f* 9 

3353 


9 9 r / 

3354 


9 9 C C 

3355 


9 9 C y 

33^6 


TTC 9 

3357 


3359 


3360 


3361 


3362 


3363 


3365 


3366 


3367 


3369 


3371 


3372 


9 9 9C' 

3375 


9 9 90 

3378 


3381 


3382 


3383 


3384 


3385 


3386 


3387 


3388 


3389 


9 9 AA 

3390 


9 9 A4 

3391 


9 9 A9 

3393 


9 9 Ay 

3394 


3395 


3396 


3397 


3398 


3399 


3402 


3403 


9 / A / 

3404 


9 / A r 

3405 


9 / Ay 

3406 


9 / AA 

3408 


9 / AA 

3409 


9 y 4 A 

3410 


3414 


3415 


3416 


3417 


3429 


3432 


3433 


9 / 9 / 

3434 


9 / 9C 

3435 


9 / 9y 

3436 


9/ TT 

3437 


9 / / 4 

3441 


T/ / T 

3442 


3443 


3459 


3484 

J~W9 


3497 


9f A9 

3507 


3513 


3514 


9f 4 r 

3515 


9C 4 y 

3516 


TC 4 9 

3517 


TC 

3522 


TC TT 

3523 


TC 

3524 


3525 


3528 


3529 


3548 


3554 


3556 


3557 


9C CO 

3558 


TC CA 

3559 


9 C ^ A 

3560 


TCZ T 

3563 


TCx y 

3564 


TCZZ 

3566 


3567 


3568 


3570 


3571 


9 P 99 

3573 


3574 


3575 


9C 9^ 

3576 


9 C 99 

3577 


9 c 9a 

3578 


9 C9A 

3579 


9C O A 

3580 


TC04 

3581 


3582 


3583 


3584 


3585 


9 P A y 

3586 


3587 


3590 


9P A4 

3591 


9 C A9 

3593 


9 C A/ 

3594 


9 C AC 

3595 


TZ TA 

3620 


TZ T4 

3621 


3622 


3623 


3624 


3625 


9 y 9 A 

3630 


3631 


3632 


9^ 99 

3633 


9^ T / 

3634 


9y 9A 

3639 


9^ / A 

3640 


TZ / / 

3644 


TZ / C 

3645 


3646 


3647 


3648 


3649 


9y PA 

3650 


5651 


3654 


9^ r9 

3657 


9^ CO 

3658 


9y y O 

3668 


9^ ^ A 

3669 


TZ TA 

3670 


TZ 91 

3671 


3672 


3673 


3674 


3675 


9 y 9^ 

3676 


3677 


3578 


9^ 9A 

3679 


9^ OA 

3680 


9^ 04 

3681 


TZ OT 

3683 


TZ O/ 

3684 


TZ OC 

3685 


3686 


3688 


3689 


3690 


9 y A4 

3691 


3693 


3694 


9^ AC 

3695 


9^ A^ 

3696 


9^ A9 

3697 


TZ AO 

3698 


T^ AA 

3699 


TTAA 

3700 


3701 


3703 


3704 


3705 


99 A^ 

3706 


3707 


3708 

W ■ WW 


99^ A 

3769 


9 99 A 

3770 


T994 

3771 


TTT^ 

3772 


3773 


3774 


3776 


Z777 


3778 


3779 


99A A 

3780 


3781 


3783 


970y 

3784 


T9AT 

3793 


T7A/ 

3794 


TTAC 

3795 


3796 


3797 


3799 


3800 


3806 


3807 


3808 


3809 


3810 


9A4 ^ 

3812 


90 4 9 

3813 


90 4 C 

3815 


904 Z 

3816 


T04 T 

3817 


T04 O 

3818 


3821 


3822 


3828 


3829 


9 A9A 

3830 


3831 


3832 


90 y r 

3845 


90 1 ^ 

3846 


90 / 9 

3847 


90CA 

3850 


TO C A 

3852 


TOC T 

3853 


3854 


3855 


3857 


3858 


3859 


3860 


3861 


3862 


90 ^ 9 

3863 


9ay / 

3864 


90^ C 

3865 


90^ 9 

3867 


TOZ O 

3868 


3870 


3871 


3872 


3873 


9 A94 

3874 


3875 


3876 


9&99 

3877 


9 090 

3878 


90aA 

3889 


TOAA 

3890 


90 AT 

3893 


TOAy 

3894 


3897 


3898 


3901 


3902 


9AA9 

3903 


3905 


3907 


9AA& 

3908 


9 AAA 

3909 


9A4 A 

3912 


9A4 T 

3913 


TA4 / 

3914 


9A AA 

3922 


3927 


3929 


3934 


3935 


9A99 

3937 


3938 


3939 


9 AC4 

3951 


9 AC ^ 

3952 


TACT 

3953 


T AC / 

3954 


TACZ 

3956 


TACO 

3958 


3959 


3972 


3975 


3977 


9 A A A 

3989 


3990 


3991 


3992 


TAAT 

3993 


TAA/ 

3994 


TAAC 

3995 


TAAZ^ 

3996 


TAAD 

3998 


4001 


4003 


4005 


4006 


t AA9 

4007 


4009 


4011 


y A4 ^ 

4012 


/ A 4 T 

4013 


/ A4 / 

4014 


t A4 C 

4015 


/ A4 T 

4017 


/ A4 O 

4018 


4022 


4023 


4024 


4025 


4026 


4050 


4051 


/ AC / 

4054 


/ ACZ 

4056 


/ ACT 

4057 


/ ACD 

4058 


/ A^ A 

4060 


/ AZ 4 

4061 


4062 


406^ 


4073 


4074 


4075 


4076 


4078 


/ A9A 

4079 


4125 


4127 


4134 


4136 


/ 1 / A 

4 i4U 


4149 


4150 


4152 


4153 




4155 


4157 


/ 1 CD 


/ 4 ^ 4 


4162 


4163 


/ iiLC 

4165 


/ 1 AA 


4167 


4169 


s231 


4235 


423'^ 


4239 


4240 


HCHl 




4244 


/ oy c 
4246 


/ O/ 7 

424 r 


/ O/ fi 


4249 


4252 


4253 


4254 


425'> 


4257 


4259 


4261 


4262 




4268 


/ 071 

42 n 


/ 070 
HCIC 


4274 


4275 


427? 


4278 


4279 


4280 


4281 


W2Xc 


4283 


4284 


4285 


4286 


4288 


4289 


4290 


4291 


4293 


4294 


4295 


4296 


g AAA 

4298 


/ AAA 

4299 


/ TAA 

4300 


/ TA4 

4301 


i YA^ 

4302 


/ TAV 

4303 


4304 


4305 


4306 


4310 


4315 


4318 


4320 


4323 


/ T^C 

4325 


/ T^Z 

4326 


/ TOO 

4328 


/ 77A 

4330 


y TT4 

4331 


4333 


4340 


4343 


4347 


4348 


4350 


4351 


4354 


/ TCC 

4355 


4357 


/ 7eo 

4358 


/ 7XA 

4360 


/ TQ4 

4391 


4392 


4394 


4396 


4397 


4399 


4400 


4402 


/ / AT 

4403 


/ / AC 

4405 


/ / AZ 

4406 


i t A9 

4407 


/ / 4 A 

4410 


/ / 1 4 

4411 


4412 


4415 


4416 


4431 


4454 


4491 


4492 


/ C^9 

4527 


4528 


/ CTA 

4530 


4531 


/ CT*^ 

4532 


/ C7/ 

4534 


4580 


J ^ A4 

4581 


4585 


4589 


/ r A A 

4590 


4591 


4592 


t CAT 

4593 


/ CAC 

4595 


M £. A^ 

4602 


4c''5 


# < 4 A 

4610 


/ Z 4 T 

4617 


4624 


/ ^ 94 

4631 


4638 


4645 


4652 


4659 


4666 


4669 


4671 


4674 


4675 


/ <TD 

4678 


4682 


4684 


4686 


4687 


4689 


/ ^ A4 

4691 


4693 


4695 


4696 


/ Z AD 

4698 


/ TAT 

4703 


4714 


4715 


/ T4 

4716 


4718 


4917 


4918 


4919 


/ A^A 

4920 


4922 


4924 


4925 


4926 


4927 


/ AID 

4928 


/ AAA 

4929 


/ ATA 

4950 


4932 


d n99 

4933 


4934 


4937 


J A9A 

4939 


4941 


4950 


/ AC4 

4951 


/ ACO 

4952 


i AC/ 

4954 


/ ACC 

4955 


/ AC^ 

4956 


/ ACO 

4958 


4994 


4995 


4996 


4997 


/ AAA 

4998 


4999 


5000 


C AA4 

5001 


F AAA 

5002 


CAAT 

5003 


CA4 ^ 

5012 


5026 


5041 


5043 


5044 


5045 


5046 


C A^ 9 

5067 


5069 


5070 


50r2 


CA7T 

5073 


CA7/ 

5074 


CA77 
507f 


CA70 

5078 


5089 


5091 


5092 


5093 


5094 


r AAC 

5095 


5096 


5097 


5098 


5099 


3101 


CI Ay 

5104 


C1 AO 

5109 


C1 1 A 

5110 


5111 


5112 


5114 


5116 


5118 


5119 


5120 


5121 


C4 

5122 


5123 


CI o/ 

5124 


CI oz. 
5 126 


CI 07 

512f 


5129 


5130 


5133 


5136 


5137 


5138 


5139 


C4 / A 

5140 


C4 / C 

5i45 


C4 

5161 


CI ^o 

5162 


CI AT 

5163 


CIA/ 
5l0H 


5167 


5169 


5172 


5174 


5176 


5184 


5186 


5205 


5206 


5209 


C01 A 

5210 


CO1 1 

5211 


C01 o 

5212 


5213 


P^4 / 

5214 


5216 


5217 


5218 


5219 


5220 


5cci 


5222 


coo/ 


CO/ 1 


CO/ o 
3242 


COAT 

3243 


5245 


5246 


5254 


5255 


5256 


5260 


5263 


5267 


O^A 

5269 


C070 

5270 


C077 

5273 


5277 


5278 


5282 


5285 


5288 


5290 


r 1 A^ 

5292 


5294 


5295 


5296 


5297 


5298 


cooo 
5299 


CTAA 

33U0 


CTAO 

3302 


5303 


r 9 A 

5304 


5307 


5308 


r 9 AA 

5309 


5310 


5312 


CT4 T 

5313 


C74 / 

5314 


5315 


CTi £. 

5316 


CT1 7 

531 1 


CTT7 

333r 


5338 


P 99A 

5339 


5340 


5341 


P9P C 

5355 


5356 


5357 


5358 


C7CA 

5359 


5360 




2of 1* 


OA7Aii 

26 76* 


1730# 


2545* 


2549* 


2606* 


2608* 


2613* 


2615* 


2620* 


2623* 


2669* 


2670* 


2678* 


2680* 


2681* 


2682* 


2688* 


2689* 


2691* 


AT M 


2696* 


ATM 

2697* 


07AAii 

2.7W0 


2702* 


2723* 






27260 


272S0 


CI jUr 


2732* 


2734* 


CI jOH 


C 1 JrH 




77L5M 




?747* 


27500 


2753* 


2756* 


27570 


2758* 


2759* 


2761* 


27e(>0 


2765* 


27670 


2771* 


2773* 


2774* 


27750 


2838* 


2840* 


2845* 


2849* 


2873* 


2878* 


2881* 


2883* 


292^*0 


2926* 


3003* 


3008* 


301 0/r 


3019* 


3028* 


3033* 


3036* 


3039* 


3040* 


3041* 


3043* 


3044* 


3047* 


30S1* 


3063# 



PAOAKTER CODING 
CZTUVB.PII 12- 



N 15 



HACni 30(1046) 12-JUL-83 09:4« PAGE 80-23 



SISKO - 000001 



SI SKI ' 000001 



SISK2 - 000001 



SISK3 = 000001 



SISK4 = 000001 
SISK5 = 000001 
SISK6 - 000001 
SLOCTAs ^77777 



09:io 




CROSS REFERENCE 


(ABLE " 


USER SYMBOLS 












SEQ 




30/^0* 


3072# 


30/3* 


3Uf 3* 


3076* 


3081* 


7AD/ M 


3073* 


X/\QQM 


71 AAM 

3100* 




7 1 X 1 M 

3161* 




3l00« 


3167# 


3168* 


71 70« 

31 f U* 


3172* 


3173* 


71 7CM 

31 fjlf 


71 7ZM 

31 fom 


71 77« 

31 ffff 


71 70M 

3178* 




71 OI\M 

3180* 


3l82# 


3it3* 


3198« 


3199* 


73AA« 

34:01/* 


3201* 


3203* 


70A/ M 


3c05* 


3206* 


701 Am 
3c lO* 


52150 


711 7« 

3cl7* 


iciow 


70ia« 

3c IT* 


3221 # 


3225* 


3CCW 


3227* 


3228* 


iicyH 


3c30* 


3232* 


7^07 m 

3203* 


32o6# 


3287* 


Scoow 




3291 « 


3292* 


70O/ il 

3cyH* 


3296* 


3297* 


77A1 M 

3301* 


77AC« 

3305* 


77 A^ M 

3306* 


77A7M 

3307* 


77/ CM 

3343* 


77/ OM 

3348* 




333U* 


3353# 


3354* 


77C7« 

33 Jim 


3369* 


3372* 


777Cif 
331 jm 


77fi7M 

3303* 


77fi7M 
330 fm 


77AAM 

33t0* 


7707M 

33y3* 


33y3* 


TX07M 


XXOBM 


3399# 


3402* 


XLfXKM 

3hU3* 


3406* 


3409* 


7/ M.h 

3«»l0* 


7/ 1 711 

3h1 fM 


XI "iom 
34cy* 


«./ 70a 

3* 3c* 


XI xj m 


7/ 1 tM 

34*3* 


T/ fi/ M 


TZQ7# 

SHyfm 


3507# 


3513* 


7C1 C« 

331 3* 


3516* 


3522* 


7C3/ « 
3JCHm 


3 3 CO* 


XK'iQM 

3Jcym 


7C/ B« 

33sO* 


XCCA.M 

3336* 


7CCAM 

33 3t* 




X^t.711 

330f # 


3568# 


3571* 


7C77« 
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3416 


3417 


3429 


3432 


3434 


3441 


3443 


3484 

W~ 


3497 

7 f 


3507 


3513 


3515 


3516 


3522 


3523 


3524 


3528 


3529 


3548 


3549 


3550 


3551 


3552 


3556 


3558 


3559 


3561 


3562 


3564 


3566 


3567 


3568 


3570 


3571 


3573 


3574 


3578 

■ w 


3582 

Wft 


3583 


3587 


3588 


3589 


3590 


3591 


3593 


3594 


3595 

7^ 


3630 


3640 

JW~ w 


3644 


3654 

^w 


3657 

^w ^ ■ 


3658 

^w ^ w 


3668 


3671 


3675 


3677 


3679 


3682 


3684 


3687 


3689 


3692 


3693 


3695 


3698 


3700 


3701 


3703 


3704 


3705 


3706 


3707 


3703 


3771 


3776 


3783 


3784 


3794 


3796 


3800 


3806 


3807 


3808 


3809 


3810 


3812 


3813 


3815 


3816 


3817 


3818 


3821 


3822 


3826 


3828 


3830 


3834 


3846 


3848 


3850 


3852 


3853 


3854 


3855 


3857 


3858 


3860 


3861 


3864 


3865 


3867 


3868 


3871 


3874 


3875 


3876 


3877 


3878 


3890 


3893 


3894 


3897 


3903 


3905 


3906 


3907 


3908 


3909 


3912 


3913 


3914 


3927 
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CROSS REFERENCE 


TABLE — * 


USER SYMBOLS 












SEQ 


3929 


3933 


3935 


39i7 


3938 


3939 


3953 


3955 


3956 


3958 


3974 


3976 

W ^ • W 


3994 


3997 


4001 


4003 


4005 


4006 


4009 


4011 


4013 


4017 


4018 

^W 1 w 


4023 

9 Wb ^ 


4024 


4050 

9 W ^ W 


4051 


4060 

^ WWW 


4062 


4063 


4127 


4134 


4136 


4139 


4152 


4153 


4155 


4159 


4163 


4167 


4168 


4169 


4231 


4235 


4237 


4240 


4243 


4244 


4246 


4249 


4255 


4258 


4260 


4263 


4272 


4274 


4275 


4277 


4279 


4281 


4282 


4284 


4285 


4286 


4289 


4293 


4298 

^W 


4299 


4301 


4303 


4304 


4305 


4308 


4310 


4315 


4318 


4320 


4321 


4322 


4'25 


4326 


4328 


4330 


4331 


4333 


4334 


4337 


4338 


4339 


4340 


4343 


4346 


4347 


4348 


4351 


4354 


4355 


4391 


4396 


4402 


4405 


4406 


4410 


4411 


4415 


4416 


4418 


4454 


4458 


4589 


4593 


4595 


4597 


4675 


467/ 


4715 


4717 


4922 


4925 


4931 


4932 


4936 


4940 


5067 


5070 


5089 


5104 


5109 


5111 


5113 


5114 


5130 


5136 


5137 


5143 


5168 


5169 


5171 


5175 


5260 


5285 


5288 


5290 


5294 


5295 


5296 


5298 


5299 


5300 


5303 


5304 


5306 


5307 


5310 


5312 


5313 


5315 


5318 


5322 






















1730# 


1738# 


2549 


2615 


2618 


2620 


2621 


2623 


2665 


2667 


2678 


2680 


2681 


2682 


2687 


2691 


2692 


2693 


2696 


2697 


2699 


2702 


2705 


2708 


2722 


2728 


2729 


2731 


2732 


2733 


2738 


2739 


2742 


2745 


2746 

W f TW 


2747 


2749 


2753 


2755 


2761 


2762 


2764 


2765 


2766 


2767 


2770 


277Z 


2774 


2775 


2777 


2811 

fcW ■ 1 


2813 


2840 


2847 


2849 


2876 


2878 


2883 


2926 


3001 


3008 


3013 


3016 

WW I w 


3019 

WW 1 w 


3022 

WWbb 


3025 


3033 


3039 


3043 


3044 


3051 


3065 


3066 


3068 


3072 


3073 


3075 

WW • w 


3078 

WW • w 


3081 


3083 

WWW^ 


3091 


3099 


3100 


3110 


3124 


3127 


3146 


3149 


3165 


3170 


3171 


3175 


3176 


3177 


3178 


3179 


3180 


3182 


3197 


3198 


3203 


3204 


3205 


3208 


3210 


3211 


3213 


3216 


3219 


3225 


3226 


3227 


3228 


3229 


3232 


3286 


3290 


3291 


3294 


3299 


3301 


3305 


3306 


3307 


3347 


3348 


3353 


3364 


3371 


3372 


3373 


3383 


3387 


3388 


3390 


3391 


3397 


3398 


3402 


3408 


3409 


3414 


3416 


3417 


3432 


3441 


3443 


3497 


3513 


3522 


3523 


3528 


3529 


3550 


3552 


3558 


3559 


3561 


3562 


3566 


3567 


3570 


3573 


3582 


3583 


3587 


3589 


3593 


3594 


3595 


3640 


3657 


3658 


3677 


3679 


3682 


3684 


3687 


3689 


3692 


3698 


3703 


3704 


3705 


3706 


3707 


3708 


3783 


3784 


3796 


3800 


3806 


3812 


3813 


3815 


3816 


3817 


3818 


3821 


3822 


3826 


3830 


3834 


3846 


3848 


3852 


3857 


3860 


3864 


3865 


3871 


3874 


3875 


3876 


3877 


3878 


3893 


3897 


3905 


3906 


3912 


3913 


3914 


3929 


3937 


3938 


3939 


3953 


3955 


3958 


3974 


3994 


3997 


4003 


4005 


4009 


4013 


4023 


4024 


4060 


4062 


4063 


4127 


4136 


4139 


4155 


4159 


4167 


4169 


4235 


4240 


4243 


4244 


4249 


4255 


4260 


4279 


4281 


4282 


4284 


4285 


4286 


4289 


4301 


4303 


4304 


4305 


4308 


4315 


4320 


4322 


4328 


4330 


4331 


4333 


4334 


4337 


£ 99a 

4338 


4339 


4343 


/ 9/ ^ 

4346 


t 9/ 9 

4347 


£ 9P4 

4354 


M 9CC 

4355 


M 9A4 

4391 


4402 


4410 


4411 


4415 


4416 


4418 


4454 


4458 


4589 


4595 


4597 


4675 


4677 


4715 


4717 


4925 


4931 


4932 


4936 


5070 


5089 


5104 


5111 


5113 


5136 


5137 


5143 


5168 


5169 


5171 


5260 


5285 


5290 


5294 


5298 


5299 


5300 


5303 


5304 


5306 


5312 


5313 


5315 


5318 


5322 


















U 1730 
1730# 


2S45# 


2549# 


2606# 


2608* 


2613* 


2615* 


2618 


2620* 


2621 


2623* 


2665* 


2667* 


2669# 


2670# 


2671# 


2676* 


2678* 


2680* 


2681* 


2682* 


2687* 


2688* 


2689* 


2691* 


2692 


2693# 


2696# 


2697* 


2699# 


2700* 


2702* 


2705* 


2708* 


2722* 


272Z9 


2724* 


2725* 


2726* 


2728# 


2729 


2731 # 


2712M 


2733 


2734* 


2738* 


2739* 


2742 


2743* 


2745* 


2746* 


271*79 


2749# 


2750# 


2753# 


2755M 


2756* 


2757* 


2758* 


2759* 


2761* 


2762 


2764* 


2765# 


276S 


2767* 


2770 


2771 # 


2773M 


2774* 


2775* 


27779 


2811* 


2813* 


2838* 


2840* 


2845* 


2847 


2849# 


2S7ZM 


2876 


2S780 


2881* 


2883* 


2924* 


2926* 


3001* 


3003* 


3008* 


3009* 


3010* 


301 3# 


301 6# 


3019# 


Z022M 


3025* 


3028* 


3033* 


3036* 


3039* 


3040* 


3041* 


3043* 


3044* 


3047# 


3051# 


3063# 


3065 


3066* 


3068* 


3070* 


3072* 


3073* 


3075* 


3076* 


3078 


3081* 


3083# 


3084# 


3091 


3095* 


3099* 


3100* 


3110* 


3112* 


3124* 


3127* 


3146* 


3149* 


3159* 


3161# 


31 63* 


3165 


3166* 


3167* 


3168* 


3170* 


3171 


3172* 


3173* 


3175* 


3176* 


3177* 


3178# 


3179* 


3180Xr 


3182* 


3195* 


3197 


3198* 


3199* 


3200* 


3201* 


3203* 


3204* 


3205* 


3206# 


3208 


3210xr 


3211 


3213* 


3216 


3217* 


3218* 


3219* 


3221* 


3225* 


3226* 


3227* 


3228# 


3229# 


3230* 


32Z2M 


3283* 


3286* 


3287* 


3288* 


3290* 


3291* 


3292* 


3294* 


3296* 


3297* 


3299 


330U 


3305* 


3306* 


3307* 


3345* 


3347 


3348* 


3349* 


3350* 


3353* 


3354* 


3357# 


3364* 


3369# 


3371 


3372* 


3373* 


3375* 


3383* 


3387* 


3388 


3390* 


3391 


3393* 
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SEQ 


3395# 


3397* 


3398* 


33V9* 


3402* 


3405* 


3406* 


3408 


3409* 


3414 


3416* 


3417* 


3429* 


3432# 


3434# 


3441 


3443* 


3484* 


3497* 


3507* 


3513* 


3515* 


3516* 


3522* 


3523 


3524* 


3S28# 


3529* 


3548# 


3549* 


3550* 


3551* 


3552* 


3556* 


3558 


3559* 


3561* 


3562* 


3564* 


3566 


3567# 


3568* 


9f 9A 

3570 


3571* 


9f 99 M 

3573* 


9f 9^ M 

3574* 


3578* 


3582* 


3583* 


3587* 


3588* 


3589* 


3590# 


3591* 


3593* 


3594* 


3595* 


9 ^ 9 A M 

3630* 


3640* 


3644* 


3654* 


3657* 


3658* 


3668* 


3671* 


3675* 


3677# 


3679* 


3682* 


3684* 


9^ a9M 

3687* 


9^ AAM 

3689* 


3692* 


3693* 


3695* 


3698 


3700* 


3701* 


3703* 


3704* 


3705* 


3706* 


3707* 


99Aa M 

3708* 


9994 M 

3771* 


3776* 


3783* 


3784* 


3794* 


3796* 


3800* 


3806* 


3807* 


3808* 


9 a aam 

3809* 


3810* 


9a 4 Am 

3812* 


9a 4 9 

3813 


3815* 


3816* 


3817 


3818* 


3821* 


3822* 


3826# 


3828# 


3830* 


9a9^ M 

3834* 


3846* 


9a ^ a M 

3848* 


9af A M 

3850* 


3852* 


3853* 


3854* 


3855* 


3857 


3858* 


3860 


3861 # 


3864* 


9a ^ f M 

3865* 


3867* 


9a y a M 

3868* 


9 A94 

3871 


3874* 


3875* 


3876* 


3877* 


3878* 


3890* 


3893 


3894* 


3897 


3903* 


3905* 


9AAy M 

3906* 


9 AA9M 

3907* 


3908* 


3909* 


3912* 


3913* 


3914* 


3927* 


3929# 


3933* 


3935* 


3937* 


3938* 


3939* 


9Af VM 

3953* 


3955* 


3956* 


3958* 


3974* 


3976* 


3994* 


3997# 


4001* 


4003 


4005* 


4006* 


4009* 


4011* 


4013* 


4017* 


4018* 


4023* 


4024* 


4050* 


4051# 


4060 


4062* 


4063* 


4127* 


4134* 


/ 4 9^ M 

4136* 


4139* 


4152* 


4153* 


4155* 


4159* 


4163* 


4167* 


4168# 


4169* 


4231* 


4235* 


J A99M 

4237* 


4240* 


4243* 


4244* 


4246* 


4249* 


4255* 


4258* 


4260* 


4263# 


4272* 




4275* 


J A 99 m 

(*277M 


4279 


4281* 


4282 


4284* 


4285* 


4286* 


4289* 


4293* 


4298# 


4299* 


4301 


4303* 


4304* 


4305* 


4308* 


4310* 


4315* 


4318* 


4320* 


4321* 


4322# 


4325# 


4326* 


4328 


4330* 


4331 


4333* 


4334* 


4337* 


4338* 


4339* 


4340* 


43^3* 


4346# 


4347# 


4348* 


» 9^4 M 

4351* 


4354* 


i 9f f M 

4355* 


S 9A4 M 

4391* 


4396* 


4402 


4405* 


4406* 


4410* 


4411 


4415# 


441 6# 


4418* 


4454* 


4458* 


t f AAm 

4589* 


* f A9m 

4593* 


4595* 


4597* 


4675* 


4677* 


4715* 


4717* 


4922* 


4925# 


4931* 


4932* 


4936* 


t A/ AM 

4940* 


f Ay 9m 

5067* 


5070* 


5089* 


5104* 


5109* 


5111* 


5113* 


5114* 


5130# 


5136* 


e 4 99 Ji 

5137* 


5143* 


p 4 y a M 

5168* 


f 4 ^ Am 

5169* 


5171* 


5175* 


5260* 


5285* 


5288* 


5290* 


5294* 


5295# 


5296* 


f ^na M 

5298* 


5299 


f 9AAM 

5300* 


f 9A9M 

5303* 


5304* 


5306* 


5307* 


5310* 


5312* 


5313 


5315* 


531 8# 


5322* 






















2545* 


2549 


2606* 


^4 

2621 


2623 


A^ # f M 

2665* 


A9A A 

2708 


27220 


2749 


2750* 


2753 


2755* 


2777 


2811* 


2813 


2838* 


2840 


2845* 


AO/ 7 

2847 


AO / A 

2849 


2873* 


2876 


2878 


2881* 


2883 


2924* 


2926 


3001 # 


3009 


9A4 ^Ja 

3010* 


3019 


9AAAM 

3022* 


9AAf 

3025 


3028* 


3033 


3036* 


3039 


3040* 


3044 


3047# 


3051 


9AZ T Ji 

3063* 


3065 


3066 


3068* 


9A09 

3083 


3084* 


3091 


3100 


3110* 


3112 


3124* 


3127 


3146* 


94 t A 

3149 


94 

3159* 


3182 


94 Af M 

3195* 


94 A9 

3197 


3198 


3199* 


3216 


3229 


3230* 


3232 


3283* 


3286 


3287* 


3291 


3292* 


99A9 

3307 


99 1 C M 

3345* 


3347 


3348 


3349* 


3391 


3417 


3429* 


3432 


3434# 


3441 


9^ t 9 

3443 


3484* 


9 / A9 

3497 


9f A9m 

3507* 


3513 


3515* 


3523 


3529 


3548* 


3595 


3630# 


3640 


9# Jt i M 

3644* 


9^ fa 

3658 


3668* 


9 9Aa 

3708 


9994 M 

3771* 


3784 


3794* 


3796 


3800* 


3834 


3846* 


3848 


3850* 


9Af ^ 

3852 


9af 9 jft 

3853* 


3878 


9AAAM 

3890* 


9aA9 

3893 


3939 


3953* 


3955 


3956* 


3958 


3974* 


3976 


3994* 


3997 


M AA4 M 

4001* 


4003 


/ AAf 

4005 


/ AA^ M 

4006* 


4009 


4011* 


4013 


4017* 


4024 


4050* 


4063 


41 27# 


t 4 9A 

4139 


4152* 


4169 


t A94 M 

4231* 


4235 


4237* 


4244 


4246* 


4249 


4255* 


4258 


4260# 


4263 


g «%9«% M 


/ ^a^ 

4286 


4289* 


t 9Aa 

4308 


/94 AM 

4310* 


4315 


4318* 


4347 


4348* 


4355 


4391* 


4418 


4454# 


4458 


4589* 


4597 


i d 9f M 

4675* 


4677 


4715* 


4717 


4922* 


4925 


4931* 


4940 


5067* 


5070 


5089* 


f 4 ^ 9 

5143 


5168* 


5175 


f A41 

5260* 


5322 












2608# 


2618 


2620 


26670 


2705 


27250 


2733 


2747 


2756* 


2766 


2775 


3003* 


3008 


3013* 


3016 


9A/ 4 M 

3041* 


9A^ 9 

3043 


3070* 


TA9^ 

3072 


3073* 


3075 


3076* 


3078 


3081 


3095* 


3099 


3161* 


3180 


3200* 


9^A 4 

3204 


3205* 


9A4 4 

3211 


T A^ V 

3213 


3217* 


3?28 


3288* 


3290 


3294* 


3306 


33S0# 


3353 


3354* 


99aa 

3388 


3390 


990T Ja 

3393* 


3398 


3399* 


34f)2 


3405* 


3414 


3416 


3516* 


3522 


3524# 


90a 

3528 


9P J Am 

3549* 


3589 


9f AAM 

3590* 


3594 


3654.» 


3657 


3671* 


3707 


3776* 


3783 


3806# 


3826 


9a M 

3828* 


90VA 

3830 


3854* 


9Q99 

3877 


3894* 


3897 


3938 


4018* 


4023 


4051* 


4060 


'«062 


4134# 


t 4 9^ 

4136 


4 4 f 9 Ja 

4153* 


4155 


1 4 CAM 

4159* 


/ 4 ^ O 

4168 


4240* 


4243 


4274* 


4285 


4293* 


4305 


4320* 


4346 


§ 9^4 M 

4351* 


J 9P ^ 

4354 


4396* 


/ £ AA 

4402 


/ / 4 y 

4416 


4593* 


4595 


4932* 


4936 


5104* 


5113 


5114# 


5137 


5169* 


5171 


5285* 


5318 














261 3# 


2615 


2669* 


Ay aA 

2682 


2687* 


A y AA 

2699 


A?f AA M 

2700* 


2702 


2724* 


2732 


2734* 


2738 


2739* 


2742 


2746 




2765 


2767* 


A99A 

2770 


2774 


3163* 


3165 


3179 


3201* 


3203 


3206* 


3208 


3210 




JCCf 


3296* 






3387 


3395* 


3397 


3406* 


3408 


3409 


3550# 


3588 


3591* 


3593 


3675* 


3677 


3679* 


3682 


3684* 


3687 


3689* 


3692 


3693* 


3706 


3807# 


3817 


5822 


3855* 


3857 


3876 


3903* 


3905 


3906* 


3933 


3935* 


3937 


4163* 


4167 


4275* 


4282 


4284 


4298* 


4304 


4321* 


4339 


4340* 


4343 


4405* 


4411 


4415 


5109# 


5111 


5130* 


5136 


5288* 


5290 


5294* 


5306 


5307* 


5313 


5315 




2670* 


2681 


26.3* 


2692 


2697 


^725* 


2729 


2731 


2743* 


2745 


2758* 


2762 


2764 


277U 


2773 


3166* 


3178 


3219* 


3226 


3297* 


3299 


3301 


3364* 


3373 


3375* 


3383 
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SEQ 


3551* 


3562 




j)00 


3567 




3ifV 


3587 


3695* 


3698 


3705 


3808* 


3816 


381 8« 


3821 




JOOU 


3865 


JOOf • 


3or^ 


3907* 


3914 


3927* 


3929 


4277* 


4279 


4281 


4299* 




Lxnx 


t*l22» 


Z77B 
JO 




4410 


5295* 


5299 


5304 


5310* 


5312 


2671* 


2680 


£007* 


coVl 


2693* 


tovo 


df £Om 


2728 


2759* 


2761 


3167* 


3171 


3177 


3221* 


3225 




xx7^ 


3372 


7CC3ir 

ijJCm 




3571* 


3573 


3574* 


3583 


3700* 


3704 


3809# 


3813 


JOO 




3864 


JOOO* 


JOf 1 


3874 


3908* 


3913 


4325* 


4331 


4333 


4334# 


4337 


5ctO» 


JCVO 


5300* 


^707 
















2676# 


2678 


J low 


71 7ft 


3172* 


71 7A 

J 1 r 0 


j330w 


3558 


3559 


3578* 


3582 


3701* 


3703 


3810# 


3812 


Toooir 


TGI 9 


4326* 


LX3tl 


Axxn 














3173# 


3175 
























1730* 


2699* 




CI Mom 


2749* 


9777M 

CI 1 Im 


CO 1 J" 


3016* 


3025* 


3149* 


3682* 


3687* 


3692* 


3826# 


3834* 




7Q^^ir 


3997* 






4308* 


4322* 


4334* 


4346* 


4418* 


4458* 


4597# 


4677* 


Hi I r w 


LQX/Jt 


5113* 




CI 71 

jl 1 lit 


5306* 


5318* 


5322* 








2699# 


2705* 


07ntlM 




27770 


CO tjH 


3v lOV 


3025* 


3149* 


3682* 


3687* 


3692* 


3826* 


3834# 


3848* 


yfjjm 


7QQ7ir 


4139* 


LOLXM 


H3vOm 


4322* 


4334* 


4346* 


4418* 


4458* 


4597* 


4677# 


4717* 




J 1 ijif 


5143# 


J 1 1 tl¥ 




5318* 


5322* 










1730# 


2545* 




COwOW 


2608* 


9A^XM 

COtJm 


cO 


2618* 


2620* 


2621* 


2623* 


2665* 


2667* 


2669# 


2670* 


cor Im 


cOr Ow 


2678# 


COOIW 


cOO tit 


2682* 


2687* 


2688* 


2689* 


2691* 


2692* 


2693* 


2696* 






2700* 


CfVCm 


CIV3lf 


2708* 


27220 


2723* 


2724* 


2725* 


2726* 


2726M 


2729* 


Cfjlm 


CI JClf 


2733* 


Cf 


CI 30m 


2739* 


27k2» 


2743* 


2745* 


2746* 


2747* 


2749* 


2750* 






2756* 


CI Jim 


Cf 30m 


2759* 


2761* 


2762* 


2764# 


2765* 


2766* 


2767* 


2770* 


5771 


CI 1 Jif 


277klt 


777U 
CI Ijm 


7777M 

CI 1 Im 


2811* 


2813* 


2838* 


2840* 


2845* 


2847* 


2849# 


2873* 


COf ow 


COI QH 


2881* 




cyctm 


2926* 


3001* 


3003* 


3008* 


3009* 


3010* 


301 3f 


3016* 




jVCCm 


3025* 




XOXX* 


3036* 


3039* 


3040* 


3041* 


3043* 


3044* 


3047* 


3051* 






3066* 




jVI WW 


3072* 


3073* 


3075* 


3076* 


3078* 


3081* 


3083# 


3084* 






3099* 


J 1 www 


XII 5ir 


3112* 


3124* 


3127* 


3146* 


3149* 


3159* 


3161* 


3163* 


J 1 




3167* 


X1<^8* 


XI 70* 

311 


3171* 


3172* 


3173* 


3175* 


3176* 


3177* 


3178* 


3179* 


ll80* 




3195* 


J 1 Tr m 


XI OM 

3 1 TO* 


3199* 


3200* 


3201* 


3203* 


3204* 


3205* 


3206* 


3208* 




jC I 1* 


3213* 


jC 10* 


3C llm 


3218* 


3219* 


3221* 


3225* 


3226* 


3227* 


3228* 


3229* 




X9X9ir 


3283* 


XOMJt 
OCvXim 


3COIm 


3288* 


3290* 


3291* 


3292* 


3294* 


3296* 


3297* 


3299* 






3306* 




XXLK.M 


3347* 


3348* 


3349* 


3350* 


3353* 


3354* 


3357* 


3364* 




331 \m 


3372* 


XX7XM 
331 3W 


XX7Cil 
331 311 


3383* 


3387* 


3388* 


3390* 


3391* 


3393* 


3395* 


3397* 




XXOOir 
jjyyif 


3402* 


XLn^M 
3HvjW 




3408* 


3409* 


3414* 


3416* 


3417* 


3429* 


3432* 


3434* 


XI^L\M 


XLLXM 


3484* 


XC07M 
3Hyfm 


33VIW 


3513* 


3515* 


3516* 


3522* 


3523* 


3524* 


3528* 


3529* 






3552* 


XKK/Ji 


XKM 
3330W 


3559* 


3561* 


3564# 


3566* 


3567* 


3568* 


3570* 


3571* 


^C7^ir 


X^7Llt 


3578* 


3JOCm 


3303lf 


3587* 


3588* 


3590* 


3591* 


3593* 


3594* 


3595# 


3630* 


jO*H/W 


XAL^ 


3654# 


XAS7if 

j03IW 


3%l30H 


3668* 


3671* 


3675* 


3677* 


3679* 


3682* 


3684# 


3687* 




XMM 
soyof 


3693* 




XMHM 

joyoif 


3700* 


3701* 


3703* 


3704* 


3705* 


3706* 


3707* 


3708# 


T771if 


jf lOm 


3783* 


3lfrtm 


31 yHm 


3796* 


3800* 


3806* 


3807* 


3808* 


3809* 


3810* 


3812* 




xl^^^M 


3816* 


30 llm 


JO lOm 


3821* 


3822* 


3826* 


3828* 


3830* 


3834* 


3846* 


3848* 




XH^^M 
jOJCif 


3853* 


XaKLM 

3oy*H 


30j3m 


3857* 


3858* 


3860* 


3861* 


3864* 


3865* 


3867* 


3868* 


vi7iir 


JOf Hit 


3875* 


JOf Ow 


XR77M 
JOf f w 


3878* 


3890* 


3893* 


3894* 


3897* 


3903* 


3905* 


3906* 


xon7i^ 

JTWf W 


xqohm 


3909* 


Jt It* 


jy I3m 


3914* 


3927* 


3929* 


3933* 


3935* 


3937* 


3938* 


3939* 




XQ^^M 
jyjjw 


3956* 


jyjow 


JTf IW 


3976* 


3994* 


3997* 


4001* 


4003* 


4005* 


4006* 


4009* 


•»W 1 1 W 


^nixir 


4017* 


•»v low 


HvC3m 


4024* 


4050* 


';05i* 


4060* 


4062* 


4063* 


4127* 


4134* 


•I 1 JOw 


Aixoir 
*» tjyw 


4152* 


A1^X# 


•1 1 3jm 


4159* 


4163* 


4167* 


4168* 


4169* 


4231* 


4235* 


4237* 




C7CXM 


4244* 


*ic*»0»» 


LPCQM 
HCHym 


4255* 


4258* 


4260* 


4263* 


4272* 


4274* 


4275* 


4277* 


L07QM 
Hcfyif 


LOtLMt 
<lcO 1 W 


4282* 


HCOtm 


HC03lt 


4286* 


4289* 


4293* 


4298* 


4299* 


4301* 


4303* 


4304* 




LXMiM 


4310* 


H3 1 3lf 


*IJ IO# 


4320* 


4322* 


4325* 


4326* 


4328* 


4330* 


4331* 


4333* 


4334* 


KS57lt 


4338* 


4340* 


4343* 


4346* 


4347* 


4348* 


4351* 


4354* 


4355* 


4391* 


4396* 


4402* 


4405# 


4406* 


4410* 


4411* 


4415* 


4416* 


4418* 


4454* 


4458* 


4589* 


4593* 


4595* 


4597* 


4675# 


W70 


4715* 


4717* 


4922* 


4925* 


4931* 


4952* 


S ATA Jl 

4936* 


4940* 


5067* 


5070* 


5089* 


5104* 


5109* 


5111* 


5113* 


5114* 


5130* 


5136* 


5137* 


5143* 


5168* 


5169* 


5171* 


5175* 


5260* 


5285* 


5288* 


5290* 


5294* 


5295* 


5296* 


5298* 


5299* 


5300* 


5303* 


5304* 


5306* 


5307* 


5310* 


5312* 


5313* 


5315* 


5318* 


5322* 


2670* 


2671* 


2676* 


1730* 


2545* 


2606* 


2608* 


2613* 


2618* 


2621* 


2665* 


2667* 


2669* 
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STEMP = 000402 



2687« 
2734# 
2770# 
301 3# 
3078* 
3166« 
3208# 
3296» 
3375# 
3484# 
3561# 
3668« 
3794* 
38S3« 
3897* 
4003« 
4163« 
4289# 
4331 « 
4593# 
5169# 
2526# 
2591 # 
26204r 
2677# 
2699* 
2737# 
2766# 
281 3# 
2865* 
2897# 
3000* 
3025# 
3072# 
3099* 
3147# 
3176* 
3209* 
3231# 
3307# 
3367# 
3389* 
3414* 
3497# 
3560* 
3581# 
3621# 
3647# 
3677# 
3694# 
3772* 
3797# 
3832# 
3870# 
3901* 
3951* 



2688« 
2739* 
2771* 
3022* 
3083# 
3167# 
321 1# 
3297# 
3388# 
3507# 
3564* 
3671 # 
3800* 
3854* 
3903* 
4006* 
4231* 
4293* 
4334* 
4675* 
5260* 
2527* 
2595* 
2621* 
2678* 
2702* 
2738* 
2770* 
2814* 
2872* 
2898* 
3002* 
3029* 
3075* 
3100* 
3148* 
3177* 
3210* 
3232* 
3347* 
3371* 
3390* 
3415* 
3513* 
3561* 
3582* 
3622* 
3648* 
3678* 
3696* 
3773* 
3799* 
3834* 
3871* 
3902* 
3952* 



2689* 
2742* 
2811* 
3028* 
3084* 
3168* 
3216* 
3299* 
3391* 
3515* 
3566* 
3675* 
3806* 
3855* 
3906* 
4011* 
4237* 
4298* 
4340* 
4715* 
5285* 
2528* 
2607* 
2622* 
2679* 
2703* 
2742* 
2773* 
2815* 
2874* 
2899* 
3008* 
3033* 
3077* 
3109* 
3149* 
3178* 
3211* 
3254* 
3348* 
3372* 
3391* 
3416* 
3514* 
3562* 
3583* 
3623* 
3649* 
3680* 
3697* 
3774* 
3812* 
3845* 
3872* 
3905* 
3954* 



26V2* 
2743* 
2838* 
3036* 
3091* 
3171* 
3217* 
3345* 
3393* 
3516* 
3568* 
3679* 
3807* 
3857* 
3907* 
4017* 
4240* 
4299* 
4348* 
4922* 
5288* 
2530* 
2609* 
2623* 
2680* 
2704* 
2745* 
2774* 
2827* 
2876* 
2919* 
3009* 
3034* 
3078* 
3111* 
3150* 
3179* 
3212* 
3286* 
3353* 
3373* 
3394* 
3417* 
3517* 
3563* 
3584* 
3624* 
3650* 
3681* 
3698* 
3777* 
3813* 
3847* 
3873* 
3912* 
3955* 



2693* 
2750* 
2845* 
3040* 
3095* 
3172* 
3218* 
3347* 
3395* 
3523* 
3570* 
3684* 
3808* 
3858* 
3908* 
4018* 
4246* 
4301* 
4351* 
4931* 
5294* 
2531* 
2610* 
2635* 
2681* 
2705* 
2746* 
2775* 
2839* 
2877* 
2920* 
3011* 
3037* 
3079* 
3112* 
3160* 
3180* 
3213* 
3290* 
3355* 
3378* 
3396* 
3432* 
3522* 
3566* 
3585* 
3625* 
3651* 
3682* 
3699# 
3778* 
3815* 
3848* 
3874* 
3913* 
3958* 



2700* 
2755* 
2847* 
3041* 
3110* 
3173* 
3219* 
3349* 
3399* 
3524* 
3571* 
3689* 
3809* 
3860* 
3909* 
4050* 
4255* 
4310* 
4391* 
4932* 
5295* 
2532* 
2611* 
2651* 
2682* 
2708* 
2747* 
2777* 
2840* 
2878* 
2922* 
3016* 
3038* 
3080* 
3123* 
3162* 
3181* 
3214* 
3291* 
3356* 
3381* 
3397* 
3433* 
3523* 
3567* 
3586* 
3631* 
3657* 
3683* 
3703* 
3779* 
3816* 
3852* 
3875* 
3914* 
3959* 



272211 
275M 
2873* 
3047* 
3124* 
3195* 
3221* 
3350* 
3405* 
3548* 
3574* 
3693* 
3810* 
3861* 
3927* 
4051* 
4260* 
4318* 
4396* 
5067* 
5296* 
2533* 
2612* 
2652* 
2685* 
2709* 
2749* 
2788* 
2846* 
2879* 
2923* 
3017* 
3039* 
3081* 
3126* 
3164* 
3182* 
3216* 
3298* 
3359* 
3382* 
3398* 
3435* 
3525* 
3570* 
3587* 
3632* 
3658* 
3685* 
3704* 
3780* 
3817* 
3857* 
3876* 
3922* 
3972* 



2723* 
2757* 
2876* 
3063* 
3127* 
3197* 
3230* 
3354* 
3406* 
3549* 
3578* 
3695* 
3813* 
3867* 
3935* 
4060* 
4272* 
4320* 
4402* 
5089* 
5299* 
2543* 
2614* 
2653* 
2690* 
2728* 
2751* 
2793* 
2847* 

P§2 

3018* 
3043* 
3082* 
3127* 
3165* 
3197* 
3222* 
3299* 
3360* 
3383* 
3402* 
3436* 
3528* 
3573* 
3588* 
3633* 
3669* 
3686* 
3705* 
3781* 
3821* 
3859* 
3877* 
3929* 
3975* 



2724* 

2758* 

2881* 

3065* 

3146* 

3199* 

3283* 

3357* 

3408* 

3550* 

3590* 

3698* 

3817* 

3868* 

3953* 

4127* 

4274* 

4321* 

4405* 

5104* 

5300* 

2544* 

2615* 

2664* 

2691* 

2729* 

2753* 

2796* 

2848* 

2882* 

2926* 

3019* 

3044* 

3083* 

3141* 

3169* 

3198* 

3225* 

3300* 

3361* 

3384* 

3403* 

3437* 

3529* 

3575* 

3589* 

3634* 

3670* 

3687* 

3706* 

3783* 

3822* 

3860* 

3878* 

3933* 

3976* 



2725* 

2759* 

2924* 

3068* 

3159* 

3200* 

3287* 

3364* 

3414* 

3551* 

3591* 

3700* 

3818* 

3871* 

3956* 

4134* 

4275* 

4322* 

4406* 

5109* 

5307* 

2547* 

2616* 

2672* 

2692* 

2731* 

2761* 

2797* 

2849* 

2883* 

2933* 

3020* 

3051* 

3085* 

3142* 

3170* 

3203* 

3226* 

3301* 

3362* 

3385* 

3404* 

3441* 

3554* 

3576* 

3593* 

3639* 

3672* 

3688* 

3707* 

3784* 

3826* 

3862* 

3889* 

3934* 

3977* 



2726* 

2762* 

3001* 

3070* 

3161* 

3201* 

3288* 

3369* 

3429* 

3552* 

3630* 

3701* 

3828* 

3890* 

3974* 

4152* 

4277* 

4325* 

4411* 

5114* 

5310* 

2549* 

2617* 

2673* 

2695* 

2732* 

2762* 

2798* 

2854* 

2885* 

2949* 

3021* 

3065* 

3089* 

3143* 

3171* 

3204# 

3227* 

3302* 

3363* 

3386* 

3408* 

3442* 

3557* 

3577* 

3594* 

3640* 

3673* 

3690* 

3708* 

3793* 

3829* 

3863* 

3893* 

3937* 

3989* 



2729* 

2766* 

3003* 

3073* 

3163* 

3205* 

3292* 

3371* 

3434* 

3556* 

3644* 

3771* 

3846* 

3893* 

3994* 

4153* 

4279* 

4326* 

4454* 

5130* 

5313* 

2583* 

2618* 

2674* 

2696* 

2733* 

2764* 

2810* 

2856* 

2895* 

2973* 

3023* 

3066* 

3091* 

3144* 

3174* 

3207* 



3305* 
3365* 
3387* 
3409* 
3443* 
3558* 
3579* 
3595* 
3645* 
3674* 
3691* 
3759* 
3795* 
3830* 
3864* 
3897* 
3938* 
3990* 



SEQ 0202 

2733* 
2767* 
3010* 
3076* 
3165* 
3206* 
3294* 
3373* 
3441* 
3558* 
3654* 
3776* 
3850* 
3894* 
4001* 
4159* 
4282* 
4328* 
4589* 
5168* 

2587* 
2619* 
2675* 
2697* 
2736* 
2765* 
2812* 
2864* 
2896* 
2981* 
3024* 
3067* 
3097* 
3145* 
3175* 
3208* 
3229* 
3306* 
3366* 
3388* 
3410* 
3459* 
3559* 
3580* 
3620* 
3646* 
3676* 
3692* 
3770* 
3796* 
3831* 
3865* 
3898* 
3939* 
3991* 
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CROSS REFERENCE 


TABLE — 


USER SYMBOLS 












SEO 


3992# 


3993* 






3997* 






4005* 


4007* 


4009* 


4012* 


4013* 


4014* 


401 5# 


4022* 






4025* 






4056* 


4057* 


4058* 


4060* 


4061* 


4062* 


4063# 


4073* 


Lt\7LM 




4076* 


HvfOn 




4125* 


4136* 


4139* 


4140* 


4149* 


4150* 


4154# 


4155* 




*» 1 JOIf 


4161* 


H 1 OCif 




4166* 


4167* 


4168* 


4169* 


4235* 


4239* 


4241« 


4242* 




L7LLM 


4247* 


L7Lf(M 




4252* 


4253* 


4254* 


4256* 


t*2S7» 


4258* 


4259# 


4261* 




£76^ir 


4267* 


HCUOIV 




4278* 


4279* 


4280* 


4281* 


4282* 


4283* 


4284# 


4285* 






4290* 






4295* 


4296* 


4300* 


4301* 


4302* 


4303* 


4304# 


4305* 






4315* 






4328* 


4330* 


4331* 


4333* 


4334* 


4337* 


4338# 


4339* 




£^46i^ 


4347* 




£354ir 


4355* 


4357* 


4358* 


4360* 


4392* 


4394* 


4397# 


4399* 






4403* 




A410if 


4411* 


4412* 


4415* 


4416* 


4418* 


4431* 


4458# 


4491* 






4528* 




&53iir 


4532* 


4534* 


4580* 


4581* 


4585* 


4590* 


4591# 


4592* 






4602* 




&6i0ir 


4617* 


4624* 


4631* 


4638* 


4645* 


4652* 


4659# 


4666* 




£671 if 


4674* 




&678if 


4682* 


4684* 


4686* 


4687* 


4689* 


4691 # 


4693* 


4695* 






4703* 


■f » 1 "fir 


£7i6ir 


4717* 


4718* 


4917* 


4918* 


4919* 


4920* 


4924# 


4925* 






4928* 






4933* 


4934* 


4936* 


4937* 


4939* 


4940* 


4941* 


4950* 


■f T J 1 If 




4954* 






4958* 


4994* 


4995* 


4996* 


4997* 


4998* 


4999* 


5000* 




soo?ir 


5003* 


5012* 


5026* 


5041* 


5043* 


5044* 


5045* 


5046* 


5069* 


5070* 


5072* 


S073# 


S074* 


5077* 


5078* 

JMf Off 


5091* 


5092* 


5093* 


5094* 


5095* 


5096* 


5097* 


5098* 


5099* 






5111* 




5113* 


5116* 


5118* 


5119* 


5120* 


5121* 


5122* 


5123* 


5124* 






5129* 


5133* 


5136* 


5137* 


5138* 


5139* 


5140* 


5143* 


5145* 


5161* 


5162* 


SI 63* 




5167* 


5171* 


5172* 


5174* 


5175* 


5176* 


5184* 


5186* 


5205* 


5206* 


5209* 


5210* 


5211* 


5212* 


5213* 


5214* 


5216* 


5217* 


5218* 


5219* 


5220* 


5221* 


5222* 


5224* 


5241* 


V W ~ f 


5243* 


5245* 


5246* 


5254* 


5255* 


5256* 


5263* 


5267* 


5269* 


5270* 


5273* 


5277* 


5278* 


5282* 


5290* 


5292* 


5297* 


5298* 


5299* 


5302* 


5303* 


5304* 


5306* 


5308* 


S309* 


5312* 


5313* 


5314* 


5315* 


5316* 


5317* 


5318* 


5322* 


5337* 


5338* 


5339* 


5340* 


5341* 


5355* 


5356* 


5357* 


5358* 


5359* 


5360* 










2545* 


2549 


2606* 


2621* 


2623 


2665* 


2708 


2722* 


2749 


2750* 


2753 


2755* 


2777 


2811* 


2813 


2838* 


2840 


2845* 




2849 


2873* 


2876* 


2878 


2881* 


2883 


2924* 


2926 


3001* 


3009 


3010* 


3019 


3022* 


3025 


3028* 


3033 


3036* 


3039 


3040* 


3044 


3047* 


3051 


3063* 


3065* 


3066 


3068* 


3083 


3084* 


3091* 


3100 


3110* 


3112 


3124* 


3127 


3146* 


3149 


3159* 


3182 


3195* 


3197* 


3198 


3199* 


3216* 


3229 


3230* 


3232 


3283* 


3286 


3287* 


3291 


3292* 


3307 


3345* 


3347* 


3348 


5349* 


3391* 


3417 


3429* 


3432 


3434* 


3441* 


3643 


3484* 


3497 


3507* 


3513 


3515* 


3523* 


3529 


3548* 


3595 


3630* 


3640 


3644* 


3658 


3668* 


3708 


3771* 


3784 


3794* 


3796 


3800* 


3834 


3846* 


3848 


3850* 


3852 


3853* 


3878 


3890* 

^**yVPr 


3893* 


3939 


3953* 


3955 


3956* 


3958 


3974* 


3976 


3994* 


3997 




4003* 


4005 


4006* 

■f WWWt 


4009 


4011* 


4013 


4017* 


4024 


4050* 


4063 


4127* 


4139 


4152* 


4169 


4231* 


4235 


4237* 


4244 


4246* 


4249 


4255* 


4258 


4260* 


4263 


4272* 


4286 


4289* 


4308 


4310* 


4315 


4318* 


4347 


4348* 


4355 


4391* 


4418 


4454* 


4458 


4589* 


4597 


4675* 


4677 


4715* 


4717 


4922* 


4925 


4931* 


4940 


5067* 


5070 


5089* 


5143 


5168* 


5175 


5260* 


$522 


2777 










2608* 


2618* 


2620 


2665* 


2708 


2722* 


2749 


2755* 


2811* 


2813 


3003* 


3008 


3013* 


3016 


30??ir 


3025 


3041* 


3043 

JW^ J 


3070* 

■/W » W" 


3072 


3073* 


3075 


3076* 


3078* 


3081 


3095* 


3099 


3146* 


3149 


3161* 


3180 


3200* 

^1. WW* 


3204 


3205* 


3211* 


3213 


3217* 


3228 


3288* 


3290 


3294* 


3306 


3350* 


3353 


3354* 


3388* 


3390 


3393* 


3398 


3399* 


3402 


3405* 


3414* 


3416 


3516* 


3522 


3524* 


3528 


3550* 


3588 


3590* 


3594 


3654* 


3657 


3671* 


3707 


3776* 


3783 


3800* 


3834 


3846* 


3848 


3854* 


3877 


3894* 


3897* 


3938 


3953* 


3955 


3994* 


3997 


4018* 


4023 


4051* 

■f WV ■ *r 


4060* 


4062 


4127* 


4139 


4153* 


4155 


4159* 


4168 




4243 


4274* 


4285 


4289* 


4308 


4320* 


4346 


4351* 


4354 


4391* 


4418 


4454* 


4458 


4589* 


4597 


4675* 


4677 

^W" ■ 


4715* 


M mm 

4717 


4932* 


4936 


5089* 


5143 


5169* 


5171 


5260* 


5322 




















2613* 


2615 


2667* 


2705 


2723* 


2733* 


2747 


2756* 


2766* 


2775 


3013* 


3016 


3163* 


3165* 


3179 


3201* 


3203 


3206* 


3208* 


3210 


vol Oif 

3218* 


iccf 




ism 


j55r* 


iXf 


3395* 


3397 


3406* 


3408* 


3409 


3552* 


3561 


3564* 


3566* 


3567 


3568* 


3570* 


3587 


3591* 


3593 


3675* 


3677 


3679* 


3682 


3684* 


3687 


3689* 


3692 


3693* 


3706 


3806* 


3826 


3828* 


3830 


3855* 


3857* 


3876 


3903* 


3905 


3906* 


3933 


3935* 


3937 


4134* 


4136 


4163* 


4167 


4240* 


4243 


4275* 


4282* 


4284 


4293* 


4305 


4320* 


4346 


4396* 
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tTSlc3 = 050476 



STSKA = 050511 



$TSK5 = 050510 



STSK6 = 050504 

STSK7 = 050506 
$$ARGC= 000000 
$$BYTE= 000403 



SSCASE= 000000 
S$DST = 000000 
SSELOC= 000402 



4402# 

5318 

2667# 

2774 

3558# 

3698« 

4277# 

5113 

2669# 

2764 

3700# 

4301# 

531 3# 

2670# 

3703 

5306 

2671# 

4334# 

2676# 

1730# 

1730# 

2689# 

2756# 

301 Of 

3095# 

3201# 

3296* 

3406« 

3574# 

3693# 

381 8# 

59030 

4018« 

4275# 

4396# 

5109# 

1730# 

1730# 

1730# 

2671# 

2700# 

2739# 

2762 

2847 

30289 

3070# 

3161* 

3178# 

3206# 

3228# 

3297# 

3357# 

3398# 

3441 

3548# 

3578# 





CROSS REFERENCE 


TABLE — 


USER SVMBOLS 
















4593# 


4595 




4936 


5104* 










S171 




2705 


2724# 


2732 


?734* 


2738 


2739* 




2746 


2757Jf 

C 1 Jf f9 


c * dj 


CI VI ^ 


Z770II 


3166# 


3178 


3219* 


3226 


3297* 


3299* 








jj* ^w 


5585 

J JO J 




3559 


3571# 


3573 


3574* 


3583 


3679f 


3682 




?687 




5692 


j\jTJm 


3705 


3806* 


3826 


3858* 


3860* 


3865 


3867# 


^875 




JT 1 H 


59274 

JwC f f 


5929 




HCO 1 




4304 






4340ir 








HH 1 ^ 




5130# 


5136 


5285* 


5318 
















2682 


2687# 


2699 


2700* 


2702 


2725* 


2729* 


2731 


2743* 


2745 


2758* 


2762* 


2771# 


CI 1 J 


D 1 o» ^ 


3171* 


Jiff 




3225 






JJf c 


5S78if 

J J f 


5S82 


3704 


3807» 


3817* 


3822 


3861* 


3864 


3868* 


3871* 


3874 


3908* 


3913 


4299* 


4303 
5315 


4322* 


4338 


4406* 


4410 


5109* 


5111 


5288* 


5290 


5294* 


5306 


5307* 


2681 


COOf If 




2726* 


C ' CO 


C f Jrff 


2761 


^168# 


5170 




5176 
J * f V 


5701 ir 

Jf W 


3808# 
5310* 


3816 
5312 


3818* 


3821 


3909* 


3912 


4325* 


4331* 


4333 


4334* 


4337 


5294* 


2680 


2688# 


2692* 


2697 


3173* 


3175 


3809# 


'^81 3# 


3815 


4326# 






4337 


5295# 


5299* 


5304 
















2678 


2689# 


2691 


2693* 


2696 


3810* 


3812 


5296* 


5298 


530a# 


S505 




2545# 


2606# 


2608* 


2613* 


2665* 


2667* 


2669* 


2670* 


2671* 


2676* 


26S7M 

C Wf T 


COOOIV 


2693# 


2700# 


27220 


272Vt 


272(>» 


2725* 


2726* 


f ^^9W 


2739* 


2743* 


2750* 


2755# 


2757# 


2758# 


2759* 


2767* 


277}» 


2811* 


2838* 


2845* 


2873* 


coo lir 


CTCf* 


JWWJw 


301 3# 


3022* 


3028* 


3036* 


3040* 


3041* 


3047* 


3063* 


3070* 


3073* 


3076* 

JW* 


3084* 


3146f 


3159# 


3161* 


3163* 


3166* 


3167* 


3168* 


3172* 


3173* 


3195* 


3199* 

J ■ www 


3200* 


3205# 


3206* 


3217* 


3218* 


3219* 


522U 


3230* 


3283* 


3287* 


3288* 


3292* 


3294* 


3297# 


3345# 


3349* 


3350* 


3354* 


3357* 


3369* 


3375* 


3393* 

W^9W 


3395* 


3399* 


3405* 


3429# 


3434# 


3484* 


3507* 


3515* 


3516* 


3524* 


3548* 


3556* 

^^^^ 


3564* 


3568* 


3571* 


3578# 


3590# 


3591* 


3630* 


3644* 


3654* 


3668* 


3671* 


3675* 

JO* J** 


3679* 


3684* 


5689# 

JOOTW 


3695# 


3700# 


3701* 


3771* 


3776* 


3794* 


3800* 


3806* 


3807* 

^W* fr 


3808* 


3809* 


381 0# 

JO 1 vv 


3828# 


38464f 


3850* 


3853* 


3854* 


3855* 


3858* 


3861* 


3867* 

JOO* ~ 


JOOOw 


3890* 


JO F^W 


3907# 


3908# 


3909* 


3927* 


3935* 


3953* 


3956* 


3994* 


4001* 


4006* 


4011* 


4017* 


4050« 


405U 


4127* 


4134* 


4152* 


4153* 


4163* 


4231* 


4237* 


4240* 


4246* 


4272* 


4289# 


429&r 


4299* 


4310* 


4318* 


4320* 


4325* 


4326* 


4340* 


4348* 


4351* 


4391* 


4405# 


4406# 


4454* 


4589* 


4593* 


4675* 


4715* 


4922* 


4932* 


5067* 


5089* 


5104* 


5114# 


S130# 


5169* 


5260* 


5285* 


5288* 


5294* 


5295* 


5296* 


5300* 


5307* 


5310* 



2545* 


2549* 


2606* 


2608* 


2613* 


2615* 


2618 


2620* 


2621 


2623* 


2669* 


2670* 


2676* 


2678* 


2680* 


2681* 


2682* 


2688* 


2689* 


2691* 


2692 


2693* 


2696* 


2697* 


2702* 


2723* 


2724* 


2725* 


2726* 


272SM 


2729 


2731* 


2732* 


2733 


2734* 


2738* 


2742 


2743* 


2745* 


2746* 


2747* 


2750* 


2753* 


2756* 


2757* 


2758* 


2759* 


2761* 


2764* 


2765* 


2766 


2767* 


2770 


277U 


2773* 


2774* 


2775* 


2838* 


2840* 


2845* 


2849* 


2873* 


2876 


2878* 


2881* 


2883* 


2924* 


2926* 


3003* 


3008* 


3010* 


3019* 


3033* 


3036* 


3039* 


3040* 


3041* 


3043* 


3044* 


3047* 


3051* 


3063* 


3065 


3066* 


3072* 


3073* 


3075* 


3076* 


3078 


3081* 


3084* 


3091 


3095* 


3099* 


3100* 


3159* 


3163* 


3165 


3166* 


3167* 


3168* 


3170* 


3171 


3172* 


3173* 


3175* 


3176* 


3177* 


5179* 


3180* 


3182* 


3195* 


3197 


3198* 


3199* 


3200* 


3201* 


3203* 


3204* 


3205* 


3208 


3210* 


3211 


3215* 


3216 


3217* 


3218* 


3219* 


3221* 


3225* 


3226* 


3227* 


3229* 


3230* 


3232* 


3283* 


3286* 


3287* 


3288* 


3290* 


3291* 


3292* 


3294* 


3296* 


3299 


3301* 


3305* 


3306* 


3307* 


3345* 


3347 


3348* 


3349* 


3350* 


3353* 


3354* 


3369* 


3371 


3372* 


3375* 


3383* 


3387* 


3388 


3390* 


3391 


3393* 


3395* 


3397* 


3399* 


3402* 


3405* 


3406* 


3408 


3409* 


3414 


3416* 


3417* 


3429* 


3432* 


3434* 


3443* 


3484* 


3497* 


3507* 


3513* 


3515* 


3516* 


3522* 


3523 


3524* 


3528* 


3529* 


3556* 


3558 


3559* 


3564* 


3566 


3567* 


3568* 


3569* 


3570 


3571* 


3573* 


3574* 


3582* 


3583* 


3587* 


3590* 


3591* 


3593* 


3594* 


3595* 


3630* 


3640* 


3644* 


3654* 
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$$ERFL= 000000 
$SFLAG- 000001 



SSFROM= 000000 
$$LOC - 027006 







CROSS REFERENCE 




USER SYMBOLS 












w 






3668# 


36/1* 


3675* 


3677* 


3693* 


3695* 


3698 

JU7w 




3701* 


3703* 


3704* 

J 1 W"" 






3707* 


3708* 


3771* 


3776* 


3783* 


J 1 w*tiv 






^807* 


^808* 


^809* 




'^81?if 
JO ■ cv 


3813 


3815* 


3816* 

JW ■ UPr 


3817 


3818* 


38? 1* 


3822* 


3828* 

JwC Wf 


3830* 


3850* 


3852* 






3855* 


3857 


3858* 


3860 


3861* 


3864* 


3865* 


3867* 


^wWwf 


3871 

Jw r 1 


3874* 

^Wf ■••T 






3877* 


3878* 


3890* 


3893 


3894* 


3897 

^W 7 f 


3903* 


3905* 


3907* 

JwVw wW 


3908* 


3909* 




391 3if 


3914* 


3927* 


3929* 

^ ^fc www 


3935* 


3937* 


3938* 


3939* 


3956* 


3958* 


4001* 

~ W I WW 


4003 


400S# 


4006if 


4009* 


4011* 


4013* 


4017* 


4018* 


4023* 


4024* 


4050* 


4051* 


4060 

^ WWW 


4062* 


4063# 


4134# 


4136* 


4152* 


4153* 


4155* 


4163* 


4167* 


4169* 


4231* 


4235* 


4237* 

~ W ^1 WW 


4244* 






4272* 


4274* 


4275* 


4277* 


4279 


4281* 


4282 

~ *m Wt 


4284* 


4285* 


4286* 

WWW 


4293* 


4298# 


4299# 


4301 


4303* 


4304* 


4305* 


4310* 


4315* 


4318* 


4325* 


4326* 


4327* 


4328 




4331 


4333* 


4340* 


4343* 


4347* 


4348* 


4351* 


4354* 


4355* 


4396* 


4402 


4405* 


4406# 


4410# 


4411 


4415* 


4416* 


4593* 


4595* 


4922* 


4925* 


5067* 


5070* 


5109* 


5111* 


5114# 


S130# 


5136* 


5137* 


5288* 


5290* 


5295* 


5296* 


5298* 


5299 


5300* 


5303* 


5304* 


5307# 


531 0# 


5312* 


5313 


5315* 


















1730# 


3562# 


3589* 


4339* 




















1730# 


254S# 


2549* 


2606* 


2608* 


2613* 


2615* 


2620* 


2623* 


2665* 


2667* 


2669* 


2670* 


2671 # 


26764f 


2678* 


2680* 


2681* 


2682* 


2687* 


2688* 


2689* 

(h> WW www 


2691* 

b W w %ww 


2693* 


2696* 

%m W ' W" 


2697* 


2700ir 


2702# 


2722* 


27230 


2724* 


2725* 


2726* 


2728* 

S> ■ fc W»T 


2731* 


27Z20 


2734* 

b • ^^WW 


2738* 


2739* 


2743# 


2745# 


2746* 


27k70 


2750* 


2753* 


2755* 


2756* 


2757* 


2758* 


27590 


2761* 


2764* 


276SM 


27670 


2771* 


2773* 


2774* 


2775* 


2811* 


2838* 


2840* 


2845* 


2849* 


2873* 

b W • ^W 


2878* 

fcW' WW 


2881 # 


2883# 

t wwww 


2924* 


2926* 


3003* 


3008* 


3010* 


3013* 


3019* 


3022* 


3028* 


3033* 


3036* 


3039# 


3040# 


3041* 


3043* 


3044* 


3047* 


3051* 


3063* 


3066* 


3070* 


3072* 


3073* 


3075* 


3076# 


3081 # 


3084* 


3095* 


3099* 


3100* 


3146* 


3159* 


3161* 


3163* 


3166* 


3167* 


3168* 


3170# 


31 72# 


3173* 


3175* 


3176* 


3177* 


3178* 


3179* 


3180* 


3182* 


3195* 


3198* 


3199* 


3200# 


3201 # 


3203* 


3204* 


3205* 


3206* 


3210* 


3213* 


3217* 


3218* 


3219* 


3221* 


3225* 


3226# 


12270 


3228* 


3229* 


3230* 


3232* 


3283* 


3286* 


3287* 


3288* 


3290* 


3291* 


3292* 


3294# 


12960 


3297* 


3301* 


3305* 


3306* 


3307* 


3345* 


3348* 


3349* 


3350* 


3353* 


3354* 


3357# 


3369# 


3372* 


3375* 


3383* 


3387* 


3390* 


3393* 


3395* 


3397* 


3398* 


3399* 


3402* 


340S# 


3406# 


3409* 


3416* 


3417* 


3429* 


3432* 


3434* 


3443* 


3484* 


3497* 


3507* 


3513* 


351 5# 


3516# 


3522* 


3524* 


3528* 


3529* 


3548* 


3556* 


3559* 


3564* 


3567* 


3568* 


3571* 


3573# 


3574# 


3578* 


3582* 


3583* 


3587* 


3590* 


3591* 


3593* 


3594* 


3595* 


3630* 


3640* 


3644# 


3654# 


3657* 


3658* 


3668* 

rfWWWW 


3671* 


3675* 


3677* 


3679* 


3684* 


3689* 


3693* 


3695* 


3700# 


3701 # 


3703* 


3704* 


3705* 


3706* 


3707* 


3708* 


3771* 


3776* 


3783* 


3784* 


3794* 


3796# 


3800# 


3806* 


3807* 


3808* 


3809* 


3810* 


3812* 

^W • fc w 


3815* 

^W • ^ww 


3816* 

^W I W>v 


3818* 


3821* 


3822* 


3828# 


3830# 


3846* 


3850* 


3852* 


3853* 


3854* 


3855* 


3858* 


3861* 


3864* 


3865* 


3867* 


3868# 


3874# 


3875* 


3876* 


3877* 


3878* 


3890* 


3894* 

^W W^ww 


3903* 


3905* 


3907* 


3908* 


3909* 


391 2# 


391 3# 


3914* 


3927* 


3929* 


3935* 


3937* 


39384^ 


3939* 


3953* 


3956* 


3958* 


3994* 


4001# 

~ W 1 WW 


4005# 


4006* 


4009* 


4011* 

^W w fwW 


4013* 


4017* 


4018* 


4023* 


4024* 


4050* 


4051* 


4062* 


4063# 


4127# 


4134* 


4136* 


4152* 


4153* 


4155* 


4163* 


4167* 


4169* 


4231* 


4235* 


4237* 


4240# 


4244# 


4246* 


4249* 


4272* 


4274* 


4275* 


1*2770 


4281* 


4284* 


4285* 


4286* 


4289* 




4298« 


4299* 


4303* 


4304* 


4305* 


4310* 


4315* 


4318* 


4320* 


4325* 


4326* 


4330* 


4333# 


4340# 


4343* 


4347* 


4348* 


4351* 


4354* 


4355* 


4391* 


4396* 


4405* 


4406* 


4410* 


441 5# 


4416# 


4454* 


4589* 


4593* 


4595* 


4675* 


4715* 


4922* 


4925* 


4932* 


5067* 


5070* 


S089# 


5104# 


5109* 


5111* 


5114* 


5130* 


5136* 


5137* 


5169* 


5260* 


5285* 


5288* 


5290* 


S294# 


5295# 


5296* 


5298* 


5300* 


5303* 


5304* 


5307* 


5310* 


5312* 


5315* 






1730# 
1730# 


2545# 


2606* 


2608* 


2613* 


2665* 


2667* 


2669* 


2670* 


2671* 


2676* 


2687* 


2688* 


2689# 

fcWW www 


2693# 


2700* 


27220 


27210 


2724* 


27250 


27260 


2734* 


2739* 


2743* 


2750* 


2755* 


27S6# 


27S70 


2758* 


27590 


27670 

b ' Wf 


2771* 


2811* 


2838* 


2845* 


2873* 


2881* 


2924* 


3003* 


3009# 


301 0# 


3013* 


3022* 


3028* 


3036* 


3040* 


3041* 


3047* 


3063* 


3070* 


3073* 


3076* 


3083# 


3084# 


3095* 


3112* 


3127* 


3146* 


T1 COM 

31 59* 


3161* 


3163* 


3166* 


3167* 


3168* 


3172* 


3173# 


3195« 


3199* 


3200* 


3201* 


3205* 


3206* 


3217* 


3218* 


3219* 


3221* 


3230* 


3283* 


32670 


3288/r 


3292* 


3294* 


3296* 


3297* 


3345* 


3349* 


3350* 


3354* 


3357* 


3369* 


3373* 


3375# 


3393# 


3395* 


3399* 


3405* 


3406* 


3429* 


3434* 


3484* 


3507* 


3515* 


3516* 


3524* 


3548# 


3556* 


3561* 


3564* 


3568* 


3571* 


3574* 


3578* 


3588* 


3590* 


3591* 


3630* 


364A# 


3654# 


3668* 


3671* 


3675* 


3679* 


3684* 


3689* 


3693* 


3695* 


3700* 


3701* 


3771* 


3776* 
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S»LOCN= 
S$REG = 
S$RETU= 
SSRTN1= 
S$RTN2= 
$$SRC = 
*$TGSV= 
S$TGS1= 
$$TGS2= 
t%TO = 
t$STAG= 



000000 
177777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
050000 
030700 



3794# 

38554r 

3935# 

4134# 

4275# 

4351# 

5067# 

5296# 

1730# 

1730# 

1730# 

1730# 

1730# 

1730# 

1730# 

1730# 

1730# 

1730# 

1730# 

1756# 

2184# 

2240# 

2307# 

2613 

2723 

2767 

3028 

3084 

3195 

3288 

3393 

3556 

3668 

3800 

3858 

3953 

4141 

4274 

4326 

4460 

5089 

5288 

5494 



3800» 
38S8« 
39j3# 
4152# 
4277# 
4391 # 
S089« 
5300« 



1807# 

2228 

224U 

2308« 

2665 

2724 

2771 

3036 

3095 

3199 

3292 

3395 

3561 

3671 

3806 

3861 

3956 

4152 

4275 

4335 

4494 

5104 

5294 

S520« 



38064r 
3861 « 
3956# 
4153ir 
4289# 
4396« 
5104# 
5307# 



2133« 

22290 

22i»2» 

2323# 

2667 

2725 

2811 

5040 

3112 

3200 

3294 

3399 

3564 

3675 

3807 

3867 

3976 

4153 

4277 

4340 

4536 

5109 

5295 

5522 



3807* 
3867* 
3976* 
4163* 
4293* 
4405* 
5109* 
5310* 



2141* 

2230* 

2243* 

2324 

2669 

2726 

2838 

3041 

3127 

3201 

3296 

3405 

3568 

3679 

3808 

3868 

3994 

4163 

4289 

4348 

4589 

5114 

5296 

5538* 



3808* 
3868* 
3994* 
4168* 
4298* 
4406* 
5114* 



2147* 

2231* 

2244* 

2368* 

2670 

2734 

2845 

3042 

3146 

3205 

3297 

3406 

3571 

3684 

3809 

3890 

4001 

4168 

4293 

4351 

4593 

5130 

5300 

5552 



3809* 
3890* 
4001* 
4231* 
4299* 
4454* 
5130* 



2152* 

2232* 

2245* 

2444* 

2671 

2739 

2873 

3047 

3159 

3206 

3345 

3429 

3574 

3689 

3810 

3894 

4006 

4231 

4298 

4362 

4675 

5147 

5307 

5556 



3810* 
3894* 
4006* 
4237* 
4310* 
4589* 
5169* 



3818* 
3903* 
4011* 
4240* 
4318* 
4593* 
5175* 



3828* 
3907* 
4017* 
4246* 
4320* 

4675* 4715* 



3846* 
3908* 
4018* 



3850* 
3909* 



3833* 
3927* 



4258* 4263* 
4325* 4326* 



4050* 4051* 



5260* 5285* 



4922* 
5288* 



SEQ 0206 

3854* 
3933* 
4127* 



4272* 4274* 

4340* 4348* 

4932* 4940* 

5294* 5295* 



2158* 


2168* 


2169* 


2170* 


2171* 


2182* 


2183* 


2233* 


2234* 


2235* 


2236* 


2237* 


2238* 


2239* 


2246* 


2247* 


2248 


2249* 


2261* 


2292 


2303 


2474* 


2506* 


2535 


2545 


2554 


2606 


2608 


2676 


2687 


2688 


2689 


2693 


2700 


2722 


2743 


2750 


2755 


2756 


2757 


2758 


2759 


2881 


2924 


3003 


3009 


3010 


3013 


3022 


3063 


3070 


3071 


3073 


3074 


3076 


3083 


3161 


3163 


3166 


3167 


3168 


3172 


3173 


3217 


3218 


3219 


3221 


3230 


3283 


3287 


3349 


3350 


3354 


3357 


3369 


3373 


3375 


3434 


3484 


3507 


3515 


3516 


3524 


3548 


3578 


3588 


3590 


3591 


3630 


3644 


3654 


3693 


3695 


3700 


3701 


3771 


3776 


3794 


3818 


3828 


3846 


3850 


3853 


3854 


3855 


3903 


3907 


3908 


3909 


3927 


3933 


3935 


4011 


4017 


4018 


4050 


4051 


4127 


4134 


4233 


4237 


4240 


4246 


4258 


4263 


4272 


4299 


4310 


4312 


4318 


4320 


4324 


4325 


4376* 


4391 


4396 


4405 


4406 


4425* 


4454 


4706 


4715 


4922 


4932 


4940 


4961 


5067 


5169 


5175 


5189 


5226 


5260 


5279 


5285 


5310 


5326 


5413 


5455 


5461 


5479 


5480 
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ALLOCA 1730# 

BEGIN 1730# 3549 3551 4321 
BGNAU 4519 
BGNAUT 4388 
BGNCLN 4444 
BGNDU 4484 
B5NHRD 5403 
BGNHU 1818 
BCNINI 4220 
BGNHOD 1758 
BGNHSG 2518 
BGNPRO 4207 
BGNP I A 5552 
BGNRPT 4118 
BGNSET 5551 
6GNSFT 5441 
BGNSRV 2582 
BGNSU6 4583 
SGNSU 1838 
BGNTST 4578 
BNCOnP 4053 
BREAK 3069 
CALL 1730# 
CASE 1730# 
CLRVEC 4395 
DEALLO 1730# 
OECLAR 1730# 
OECR 1730# 
OECRU 1730# 
OEFAUL 1730# 
DELAY 3042 
ESCRI 1806 
OEVTYP 1807 
DISPAT 1791 

OOCLN 3957 4314 4353 
OOOU 4016 4401 
OORPT 2752 4010 
ELSE 1730# 2618 
3165 3171 
3558 3566 
4301 4328 
END 1730# 3562 
ENOAU 4551 
ENOAUT 4420 
ENOCLN 4474 
ENOOEC 1730# 

ENOOQ 1730# 2699 2705 2708 2749 2777 2813 3016 3025 3149 3682 3687 3692 3826 3834 
3848 3955 3997 4139 4243 4308 4346 4418 4458 4597 4677 4717 4936 5113 5143 
5171 5306 5318 5322 
ENOOU 4508 
ENOHRO 5427 
ENDHU 1829 

ENOIF 1730# 2549 2615 2620 2623 2678 2680 2681 2682 2691 2696 2697 2702 2728 2731 
2732 2738 2745 2746 2747 2753 2761 2764 2765 2773 2774 2775 2840 2849 2878 
2883 2926 3008 3019 3033 3039 3043 3044 3051 3066 3072 3075 3081 3099 3100 
3170 3175 3176 3177 3178 3179 3180 3182 3198 3203 3204 3210 3213 3225 3226 



1913 
2540 


4111 


4576 


5392 
















2586 
4600 


2590 
4608 


2594 
4615 


4622 


4629 


4636 


4643 


4650 


4657 


4664 


4680 


4915 
4251 
3125 


5066 
4266 
4313 


5159 
4336 


5203 


5239 














4456 






















3071 


3074 


4233 


4312 


4324 


4335 


5279 











2621 


2692 


2729 


2733 


2742 


2762 


2766 


2770 


2847 


2876 


3065 


3078 


3091 


3197 


3208 


3211 


3216 


3299 


3347 


3371 


3388 


3391 


3408 


3414 


3441 


3523 


3570 


3698 


3813 


3817 


3857 


3860 


3871 


3893 


3897 


4003 


4060 


4279 


4282 


4331 


4402 


4411 


5299 


5313 


















3589 


4339 
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3227 


3228 


3229 


3232 


3286 


32V0 


3291 




338? 


3390 


3397 


3398 


3402 


3409 


3416 




3559 


3567 


3573 


3582 


3583 


3587 


3593 




3705 


3706 


3707 


3708 


3783 


3784 


3796 




3865 


3874 


3875 


3876 


3877 


3878 


3905 




4005 


4009 


4013 


4023 


4024 


4062 


4063 




4284 


4285 


4286 


4303 


4304 


4305 


4315 




4416 


4595 


4925 


5070 


5111 


5136 


5137 


ENDINC 


1730* 


4337 


4338 










ENDINI 


4378 














ENDLOO 


1730* 














ENONOO 


1888 


4087 


4553 


5367 


5543 






ENDMSG 


2538 


2572 












ENDPRO 


4211 














ENDPTA 


5555 














ENDRPT 


4201 














ENORTN 


1730* 














ENOSEL 


1730* 














ENOSET 


5556 














ENOSFT 


5532 






2596 








ENDSRV 


2584 


2588 


2592 








ENDSUB 


4598 


46C6 


4613 


4620 


4627 


4634 


4641 


ENDSU 


1887 














ENDTST 


4908 


5051 


5150 


5193 


5230 


5366 




EQUALS 


1920 














ERRDF 


3005 


3030 


3049 


3087 


3271 


3322 


3461 


ERRHRD 


3223 


3255 


3303 


3526 


3891 


3895 


3921 


ERRSF 


4232 














ERRSOF 


3351 


3400 


3430 










EXIF 


1730* 














EXIFB 


1730* 












4536 


EXIT 


2535 


2554 


4141 


4362 


4460 


4494 


GMANIL 


4059 














GPHARO 


4292 


4529 












GPRNA 


5410 












5467 


GPRND 


5411 


5462 


5463 


5464 


5465 


5466 


5476 


5477 


5478 


5481 


5482 


5483 


5484 


GPRNL 


4059* 


5450 


5451 


5452 


5453 


5454 


5456 


HEADER 


1775 














IF 


1730* 


2545 


2606 


2608 


2670 


2676 


2688 




2756 


2757 


2758 


2767 


2838 


2845 


2873 




3073 


3084 


3161 


3163 


3166 


3167 


3168 




3218 


3283 


3287 . 


3288 


3292 


3345 


3349 




3515 


3516 


3524 


3548 


3556 


3564 


3574 




3809 


3818 


3828 


3854 


3855 


3858 


3861 




3956 


4001 


4011 


4017 


4152 


4153 


4163 




4405 


4406 


4593 


5109 


5114 


5130 


5288 


IFB 


1730* 


2613 


2669 


2671 


2726 


2743 


2750 




3201 


3219 


3221 


3230 


3294 


3296 


3297 




3590 


3591 


3630 


3668 


3693 


3695 


3700 




4006 


4018 


4050 


4051 


4134 


4237 


4246 


IFCOND 


1730* 


4274 


4277 


4293 








IF. ERR 


1730* 














IF. WO. 


1730* 














INCR 


1730* 


4322 


4334 










INCRU 


1730* 















C 1 



n-1 
















MACRO NAMES 












SEQ 


3301 


3305 


3306 


3307 


3348 


3353 


3372 


3383 


3417 


3432 


3443 


3497 


3513 


3522 


3528 


3529 


3594 


3595 


3640 


3657 


3658 


3677 


3703 


3704 


3812 


3815 


3816 


3821 


3822 


3830 


3852 


3864 


3912 


3913 


3914 


3929 


3937 


3938 


3939 


3958 


4136 


4155 


4167 


4169 


4235 


4244 


4249 


4281 


4330 


4333 


4343 


4347 


4354 


4355 


4410 


4415 


5290 


5298 


5303 


5304 


5312 


5315 






4648 


4655 


4662 


4672 


4701 








3476 


3508 


3518 


4002 










4706 


4961 


5147 


5189 


5226 


5326 


5413 


5522 


5468 


5469 


5470 


5471 


5472 


5473 


5474 


^ t 9f 

5475 


5485 


5486 


5487 


5488 


5489 


5490 


5491 


5492 


5457 


5458 


5459 


5460 










fin 

2689 


2693 


2700 


2723 


2724 


2725 


2734 


2739 


2924 


3003 


3010 


3040 


3041 


3047 


3063 


3070 


3172 


3173 


3195 


3199 


3200 


3205 


3206 


3217 


3569 


3375 


3393 


3395 


3399 


3406 


3429 


3507 


5578 


3644 


3654 


3671 


3675 


3776 


3807 


3808 


3867 


3868 


3890 


3894 


3907 


3909 


3927 


3935 




/ 70S 


4299 


4310 


4325 


4326 


4340 


4351 


5295 


5296 


5300 


5307 


5310 








2759 


2771 


2881 


3028 


3036 


3076 


3095 


3159 


3350 


3354 


3357 


3405 


3434 


3484 


3568 


3571 


3701 


3771 


3794 


3810 


3850 


3853 


3903 


3908 


4272 


4275 


4318 


4348 


4396 


4922 


5067 





D 1 



PARAMETER CODING 




MACY11 


30(1046) 


12-JUL-83 09:44 PAGE 


81-2 














SEO 


CZTUVB.P11 12-JUL-83 09:26 




CROSS REFERENCE 


TABLE — MACRO NAMES 












INLINE 


1730# 






























LASTAD 


55^2 




4327 


























LEAVE 


1730# 


3569 




















2587 


2591 


2595 


LET 


1730# 


2526 


2527 


2528 


2530 


2531 


2532 


2533 


2543 


2544 


2547 


2583 


2607 


2609 


2610 


2611 


2612 


2614 


2616 


2617 


2619 


2622 


2635 


2651 


2652 


2653 


2664 




2672 


2673 


2674 


2675 


2677 


2679 


2685 


2690 


2695 


2703 


2704 


2709 


2736 


2737 


2751 




2788 


2793 


2796 


2797 


2798 


2810 


2812 


2814 


2815 


2827 


2839 


2846 


2848 


2854 


2856 




2864 


2865 


2872 


2874 


2877 


2879 


2880 


2882 


2885 


2895 


2896 


2897 


2898 


2899 


2919 




2920 


2922 


2923 


2925 


2933 


2949 


2973 


2981 


3000 


3002 


3011 


3017 


3018 


3020 


3021 




3023 


3024 


3029 


3034 


3037 


3038 


3067 


3077 


3079 


3080 


3082 


3085 


3089 


3097 


3109 




3111 


3123 


3126 


3141 


3142 


3143 


3144 


3145 


3147 


3148 


3150 


3160 


3162 


3164 


3169 




3174 


3181 


3207 


3209 


3212 


3214 


3222 


3231 


3254 


3298 


3300 


3302 


3355 


3356 


3359 




3360 


3361 


3362 


3363 


3365 


3366 


3367 


3378 


3381 


3382 


33i)4 


3385 


3386 


3389 


3394 




3396 


3403 


3404 


3410 


3415 


3433 


3435 


3436 


3437 


3442 


3459 


3514 


3517 


3525 


3554 




3557 


3560 


3563 


3575 


3576 


3577 


3579 


3580 


3581 


3584 


3585 


3586 


3620 


3621 


3622 




3623 


3624 


3625 


3631 


3632 


3633 


3634 


3639 


3645 


3646 


3647 


3648 


3649 


3650 


3651 




3669 


3670 


3672 


3673 


3674 


3676 


3678 


3680 


3681 


3683 


3685 


3686 


3688 


3690 


3691 




3694 


3696 


3697 


3699 


3769 


3770 


3772 


3773 


3774 


3777 


3778 


3779 


3780 


3781 


3793 




3795 


3797 


3799 


3829 


3831 


3832 


3845 


3847 


3859 


3862 


3863 


3870 


3872 


3873 


3889 




3898 


3901 


3902 


3922 


3934 


3951 


3952 


3954 


3959 


3972 


3975 


3977 


3989 


3970 


3991 




3992 


3993 


3995 


3996 


3998 


4007 


4012 


4014 


4015 


4022 


4025 


4026 


4054 


4056 


4057 




4058 


4061 


4073 


4074 


4075 


4076 


4078 


4079 


4125 


4140 


4149 


4150 


4154 


4157 


4158 




4161 


4162 


4165 


4166 


4239 


4241 


4242 


4247 


4248 


4252 


4253 


4254 


4256 


4257 


4259 




4261 


4262 


4267 


4268 


4271 


4278 


4280 


4283 


4288 


4290 


4291 


4294 


4295 


4296 


4300 




4302 


4306 


4323 


4350 


4357 


4358 


4360 


4392 


4394 


4397 


4399 


4400 


4403 


4407 


4412 




4431 


4491 


4492 


4527 


4528 


4530 


4531 


4532 


4534 


4580 


4581 


4585 


4590 


4591 


4592 




4602 


4605 


4610 


4617 


4624 


4631 


4638 


4645 


4652 


4659 


4666 


4669 


4671 


4674 


4678 




4682 


4684 


4686 


4687 


4689 


4691 


4693 


4695 


4696 


4698 


4703 


4714 


4716 


4718 


4917 




4918 


4919 


4920 


4924 


4926 


4927 


4928 


4929 


4930 


4933 


4934 


4937 


4939 


4941 


4950 




4951 


4952 


4954 


4955 


4956 


4958 


4994 


4995 


4996 


4997 


4998 


4999 


5000 


5001 


5002 




5003 


5012 


5026 


5041 


5043 


5044 


5045 


5046 


5069 


5072 


5073 


5074 


5077 


5078 


5091 




5092 


5093 


5094 


5095 


5096 


5097 


5098 


5099 


5101 


5110 


5112 


5116 


5118 


5119 


5120 




5121 


5122 


5123 


5124 


5126 


5127 


5129 


5133 


5138 


5139 


5140 


5145 


5161 


5162 


5163 




5164 


5167 


5172 


5174 


5176 


5184 


5186 


5205 


5206 


5209 


5210 


5211 


5212 


5213 


5214 




5216 


5217 


5218 


5219 


5220 


5221 


5222 


5224 


5241 


5242 


5243 


5245 


5246 


5254 


5255 




5256 


5263 


5267 


5269 


5270 


5273 


5277 


5278 


5282 


5292 


5297 


5302 


5308 


5309 


5314 




5316 


5317 


5337 


5338 


5339 


5340 


5341 


5355 


5356 


5357 


5358 


5359 


5360 






LOCAL 


1730# 






























LOOP 


173ar 






























MANUAL 


4052 






























MEMORY 


4349 






























MSBYTE 


1775# 






























M$CHEC 


2535# 


2554# 


4141# 


4362f 


4460# 


4494f 


4536# 


4706# 


4961# 


5147f 


5189# 


5226# 


5326# 


541 3« 


5522« 


nSCNTO 


4059# 


5410# 


541 1# 


5450# 


5451# 


5452# 


5453# 


5454# 


5456« 


5457f 


5458# 


5459« 


5460f 


S462« 


5463« 




5464# 


5465# 


5466# 


5467# 


5468# 


5469# 


5470f 


5471# 


5472# 


5473# 


5474f 


54751 


5476f 


S477« 


5478« 




5481# 


5482# 


5483# 


5484# 


5485# 


5486# 


5487« 


54884 


5489# 


5490# 


5491 # 


5492« 








MSCOUN 


2524# 


2525# 


2534# 


2541# 


2542# 


2548# 


2550# 


2551# 


2552# 


2S53# 


3376# 


3485« 


3496* 


3572« 


3S92« 




3702# 


3747* 


3753# 


3892# 


3896# 


3928# 


3936# 


4037# 


4038# 


4128# 


4129# 


4130f 


4131f 


41S2« 


4133# 




4137# 


4148# 


41S1# 


4156# 


4160# 


4164# 


41 70# 


431 1# 


4329# 


4332# 


4352# 


4398# 


4408# 


4413# 


4493« 




4594# 


5068# 




























MSDATA 


1775# 


1806# 


1807# 


























M$DECR 


1829# 


1887# 


1888# 


2538# 


2572M 


2584f 


2588# 


2592# 


2596# 


4087# 


4201 « 


421 If 


4378« 


44201 


4474# 




4508# 


4551# 


4553# 


4598# 


4606# 


461 3f 


4620# 


4627# 


4634# 


4641 # 


4648# 


46S5f 


46621 


4672« 


47011 




4908« 


5051# 


5150# 


5193# 


5230# 


5366# 


5367# 


5427# 


5532# 


5S43« 


SSS|f 


S4S9# 


5460« 


S462« 


5463« 


MSOEFA 


4059# 


5410# 


5411# 


5450# 


5451# 


5452# 


5453» 


5454# 


5456# 


5457# 


S4S8« 


5464» 


5465« 


5466f 


5467# 


5468# 


5469# 


5470f 


5471* 


5472« 


5473# 


S474« 


S475f 


5476f 


5477f 


5478» 



PARAMETER CODING 
C2TUVB.P11 12- 
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CROSS REFERENCE TABLE — MACRO NAMES 



nSENOE 
nSERRI 

nSExcp 



nSEXIT 
nSEXSE 
MSEXTJ 
nSGEN 



nSGENB 
NSGETS 



M$6ETT 
N$GNGB 
NSGNIN 



nSGNLS 
HSGNSU 
nSGNTA 



nSGNTE 
nSHAPT 
MHNAP 
nSINCR 



5481 # 
1829« 
4551# 
505U 
30O5« 
351&I 
5410f 
5475# 
5492« 
2535# 
2535# 
2535# 
1775# 
2588# 
4484f 
4629* 
491 5» 
5552f 
4059f 
1829# 
450&r 
4908# 
5532» 
2535» 
5461f 
1758# 
4118# 
^7750 
255U 
307U 
3485# 
392&r 
4132# 
4265# 
4335# 
4460# 
4613f 
4664# 
527«f 
5456f 
5471f 
5486f 
4059f 
4583# 
1829# 
4606# 
5230# 
4S78# 
1775# 
1775f 
1758# 
2552» 
3255# 
3572# 
4016# 
4151f 



5482« 
1887# 
43S3# 
5150# 
3030# 
3526# 
541 U 
5476# 

2554# 
2554# 
2554# 
1791# 
2590« 
4508» 
4634» 
5051« 
5555« 

1887# 
4551# 
5051 # 
5543# 
2554» 
5479# 
1775# 
4207# 
1791# 
2552# 
3074# 
3496# 
3936« 
4133« 
4266# 
4336# 
4474« 
461 5# 
4672f 
5326# 
5457# 
5472# 
5487# 

4600# 
1887f 
461 3« 
5366# 
491 5# 



181&r 
2553# 
3271# 
3592# 
4037# 
4156« 



5483« 


5484« 


5485f 


1888# 


2538« 


2572# 


4598ir 


4606# 


461 3« 






KXtJtM 


3049« 


3087# 


Z223M 


3891 « 


3895f 


3921* 


5462« 


5463# 


5464# 


5477# 


S478« 


548U 


414U 


4362« 


4460# 


41414 


4362# 


4460# 


4141« 


4362f 


4460# 


1806« 


1807# 


1818# 


2592# 


2594f 


2596* 


4519# 


4551f 


4578f 


4636# 


4641f 


4643# 


5066# 


5150ir 


5159# 



I88ftr 
4553# 
515(Mr 

4141# 
5480* 
179U 
4220# 
1806# 
2553# 
3087# 
350&r 
3957* 
4137# 
4270* 
4349# 
4493# 
4620ir 
4680# 
5366# 
5458# 
5473« 
5488« 

4608# 
2538# 
4620f 
5427« 
5066# 



1838# 
2572# 
3303# 
3702# 
4038# 
4160# 



2538* 
4598# 
5193« 

4362# 
5494# 
1806« 
4388# 
1807# 
2554* 
3125f 
3518* 
4002# 
4141# 
4273« 
4352# 
4494# 
4622# 
4701# 
5403# 
5459« 
54741 
5489# 

461 5« 
2572# 
4627# 
5532# 
5159# 



1913# 
2582# 
3322* 
3747# 
4052# 
4164« 



2572# 
4606* 
5230ir 

4460f 
5522f 
1807# 
4444« 
1818* 

35261 
4010f 
4148# 
4276# 
4353f 
45M# 
46271 
4706# 
5410* 
5460# 
5475« 
5490f 

4622# 
2584# 
4634# 
5552# 
520l# 



251&V 
2586# 
3351# 
3753# 
4059f 
41701 



S4&6# 
2S84# 
46201 
53671 
32551 
40021 
5465« 
5482« 

4494f 
4494# 
4494# 
1829# 
4059f 
4583# 
4648# 
5193# 



4629f 
2588* 
4641# 
SS5S# 
5239f 



2524f 
2590# 
3376f 
3891# 
4111# 
4201# 



5487« 
2588# 
4627« 
5427* 
3271# 
4232# 
5466« 
5483« 

4536« 
4536# 
4536« 
1838* 
4118* 
4598* 

520Sv 



5488« 
2592* 
.634* 
5532* 
3303* 

5467* 
5484* 

4706* 
4706* 
4706* 
1887* 
4201* 
4600* 
4655* 
5230* 



2592* 
270 



5489* 
2596* 
4641* 
5543* 
3322* 

5468* 
5485* 

4961* 
4961* 
4961* 
2518* 
4207* 
4606* 
4657* 
5239* 



5427* 



5490* 
4087* 
4648* 



5469* 
5486* 

5147* 
5147* 
5147* 
2538* 
4220* 
4608* 
4662* 
5366* 



4087* 
4641* 
5455* 




4636* 
2592* 
4648* 



^525* 
»94f 
$400* 
3892* 
4118* 
4207* 



4643* 
2596* 
4655* 



5441* 
5464* 
5479* 
5522* 

4650* 
4201# 
4662* 



4i98* 
4585* 
4643* 
5147* 
5450* 
546S« 
5480* 
5532* 

4657* 
4378* 
4672* 




5491* 
4201* 
4655* 



5492* 
4378* 
4662* 



4420* 
4672* 



4474* 
4701* 



5470* 
5487* 

5189* 
5189* 
5189* 
2540* 
4378* 
4613* 
4664* 
5403* 



4201* 
4648* 
5461* 



5471* 
5488* 

5226* 
5226* 
5226* 
2572* 
4388* 
4615* 
4672* 
5427* 



4211* 
4655* 
5479* 



5472* 
5489* 

5326* 
5326* 
5326* 
2582* 
4420* 
4620* 
4680* 
5441* 



4378* 
4662* 
5480* 



5473* 
5490* 

5413* 
5413* 
5-il3* 
2584* 
4444* 
4622* 
4701* 
5532* 



4420* 
4672* 
5494* 



2582* 
5441* 
2538* 



3895* 
42iS* 



3376* 
S91* 
4059* 
4201* 
4314* 
4401* 
4594« 
4648* 
5150* 
5451* 
5466* 
5481* 
5542* 

4664« 
4420* 
4701* 



2541* 
3049* 
3485* 
3928* 
4131* 
4265* 



2541* 
3030* 
3400* 
3892* 
4128* 
4232* 
4317* 
4408* 
4598* 
4650* 
5189* 
5452* 
5467* 
5482* 
5552* 

4680* 
4474* 
4908* 



2542* 
3069* 
3496* 
3936* 
4132* 
4270* 



2542* 

1^ 

3895* 
4129* 
4233* 
4324* 
4413* 
4600* 
4655* 
5193* 
5453* 
5468* 
5483* 



4508* 
5051* 



2548* 
3087* 
3508* 
3957* 
4133* 
4273* 



2548* 
3049* 
3461* 

4130* 
4250* 
4329* 
4420* 



4657* 
5226* 
5454f 
5469* 
5484« 



4551* 



5'i50* 



2550* 
3125* 
3518* 
4002* 
4137* 
4276* 



SEQ 0210 



4508* 
4908* 



3351* 3400^ 3430* 3461* 3476* 3508* 



5474* 
5491* 

5522* 
5522* 
5522* 
2586* 
4474* 
4627* 
4908* 
5542* 



4474* 
4701* 
5522* 



5147* 5189* 5226* 5326* 5413* 5455* 



2590* 2594* 4111* 



2550* 
3069* 
3476* 
3921* 
4131* 
4251* 
4332* 
4456* 
4608* 
4662* 
5230* 
5455* 
5470* 
5485* 



4598* 

519» 



2551* 
3223* 
3526* 
4010* 
4K8# 
4292* 
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N$LDRO 
nSMCHl 
nSMCLO 
K$POP 



N$PR1N 

NSPUSH 
WPUT 

MSPUTI 

nSRADI 



MSRNRO 
nSSETS 



msvc 



NSTLAB 



MSTSTL 



4297* 
4395# 
4S33# 
4629« 
4908« 
S326# 
4016« 
172ftr 
172ftr 
1829# 
4508# 

49oar 

2524# 

3702# 

4137# 

4594# 

17S8« 

4444* 

4664* 

2524# 

3702# 

4137# 

441 3# 

2524# 

3702« 

4137# 

4413# 

4059# 

5464# 

5481 # 

4270* 

1758* 

4444* 

4664# 

2524* 

3005 

3461 

3896* 

4131* 

4270* 

4362* 

4529* 

4629* 

4908* 

2524* 

3049* 

3485* 

3928* 

4133* 

4292* 

4395* 

4594* 

4648* 

5150* 

2524* 

3049* 



4311* 
4398* 
4551* 
4634* 
4915* 
5366* 
4250* 



1887* 

4551* 

5051* 

2525* 

3747* 

4148* 

5068* 

1818* 

4484* 

4680* 

2525* 

3747* 

4148* 

4493* 

2525* 

3747* 

4148* 

4493* 

5410* 

5465* 

5482* 

4292* 

1818* 

4484* 

4680* 

2525* 

3030 

3476 

3921 

4132* 

4273* 

4378* 

4533* 

4634* 

4961* 

2525* 

3069* 

3496* 

3936* 

4137* 

4297* 

4398* 

4598* 

4650* 

5189* 

2525* 

3069* 



4313* 
4401* 
4576* 
4636* 
4961* 
5392* 
4265* 



1888* 
4553* 
5150* 
2534* 
3753* 
4151* 

1838* 

4519* 

4915* 

2534* 

3753* 

4151* 

4533* 

2534* 

3753* 

4151* 

4533* 

5411* 

5466* 

5483* 

4349* 

1838* 

4519* 

4915* 

2534* 

3049 

3485* 

3928* 

4133* 

4276* 

4393* 

4536* 

4636* 

5051* 

2534* 

3087* 

3508* 

3957* 

4148* 

4311* 

4401* 

4600* 

4655* 

5193* 

2534* 

3087* 



4314* 
4408* 
4578* 
4641* 
5051* 
5403* 
4273* 



2538* 
4598* 
5193* 
2541* 
3892* 
4156* 

1913* 
4576* 
5066* 
2541* 
3892* 
4156* 
4594* 
2541* 
3892* 
4156* 
4594* 
5450* 
5467* 
5484* 
4529* 
1913* 
4576* 
5066* 
2535* 
3069* 
3496* 
3936* 
4137* 
4292* 
4395* 
4551* 
4641* 
5068* 
2538* 
3125* 
3518* 
4002* 
4151* 
4313* 
4408* 
4606* 
4657* 
5226* 
2538* 
5125* 



CROSS REFERENCE 


TABLE ~ 


MACRO NAMES 






4332* 






4413* 


4420* 


4444* 


4456* 


4460* 


4583* 


4594* 


4598* 


4600* 


4606* 


4643* 


4648* 


4650* 


4655* 


4657* 


5066* 


5068* 


5147* 


5150* 


5159* 


5441* 


5551* 


5552* 






4276* 


4292* 


4317* 


4395* 


4401* 



SEQ 0211 



2572* 
4606* 
5230* 
2542* 
3896* 
4160* 

2518* 
4578* 
5159* 
2542* 
3896* 
4160* 
5068* 
?542* 



4160* 
5068* 
5451* 
5468* 
5485* 

2518* 

4578* 

5159* 

2538* 

3087 

3508 

3957* 

4141# 

4297* 

4398* 

4583* 

4643* 

5147* 

2541* 

3223* 

3526* 

4010* 

4156* 

4314* 

4413* 

4608* 

4662* 

5230* 

2541* 

3223* 



2584* 
4613* 
5366* 
2548* 
3928* 
4164* 



2540* 
4583* 
5203* 
548* 
1928* 
4164* 



I 



2548* 
3928* 
4164* 

5452* 
5469* 
5486* 

2540* 

4583* 

5203* 

2541« 

3125* 

3518 

4002 

4148* 

4311* 

4401* 

4594* 

4648* 

5150* 

2542* 

3255* 

3572* 

4016* 

4160* 

4317* 

4420* 

4613* 

4664* 

5326* 

2542* 

3255* 




I 



550* 
936* 
4170* 



5453* 
5470* 
5487* 



542* 



33 
4010* 
4151* 
4313* 
4408* 
4598* 
4650* 
5189* 
2548* 
3271* 
3592* 
4037* 
4164* 
4329* 
4456* 
4615* 
4672* 
5366* 
2548* 
3271* 



2592* 
4627* 
5427* 
2551* 
4037* 
4311* 



2596* 





2551* 
4037* 
4297* 

5454* 
5471* 
5488* 



2582* 2586* 



5392* 

IP* 

3572* 
4016* 
4156* 
4314* 
4413* 
4600* 
465^ 
5193* 
2550* 
3303* 
3702* 
4038* 
4170* 
4332* 
44i 

4610* 

46i 

2550* 
3303* 



2590* 
4615* 
5403* 
2552* 
4058* 
4311* 

2552* 
4051* 
4311* 

5456* 
5472* 
5489* 

2590* 

4615* 

5403* 

2550* 

3271 

3592* 

4037* 

4160* 

4317* 

4420* 

4606* 

4657* 

5226* 

2551* 

3322* 

3747* 

4052* 



4352* 
4474* 
4608* 

M 

4456* 

4087* 
4641* 
5543* 
2553* 

2594* 
4622* 
5441* 
2553* 

2553* 
4128* 
4329* 

5457* 
5473* 
5490* 

2594* 
4622* 
5441* 
2551* 
3303 
3702* 
4038* 
4164* 
43l9V 
4456* 
4608* 
4662* 
5230* 
2552* 
3351* 
3753* 
4059* 
4232* 
4349* 
4493* 




4353* 
4484* 
4613* 

m 


4362* 
4493* 
4615* 

mi 


4378* 
4508* 
4620* 
4680* 
5226* 


4388* 
4519* 
4622* 
4701* 
5230* 


4393* 
4529* 
4627* 
4706* 
5239* 


4529* 










4201* 
4648* 


4211* 
4655* 


4378* 
4662* 


4420* 
4672* 


4474* 
4701* 


3376* 
4129* 
4352* 


3485* 
4130* 
4398* 


3496* 
4131* 
4408* 


3572* 
4132* 
4413* 


3592* 
4133* 
4493* 


4111* 
4629* 


4118* 
4636* 


4207* 
4643* 


4220* 
4650* 


4388* 
4657* 


3376* 

Vm» 


3485* 
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5186 


5205 


5206 


JCvr 


jC I w 


5211 


S?1? 


JC 1 J 


5214 


S?17 

JC 1 f 


S218 

JC 1 o 


5219 


5220 


5221 


5222 


5224 


5241 


5242 


SPA'? 


S?AS 


5246 


Jc J*t 


SPSS 


5256 


S270 

JC V V 


S278 

JCr O 


5292 


5297 


5302 


5314 


5317 


5338 


5339 


JjH\J 


JJH 1 


5355 




S'?S7 


5359 


S360 

^ JOV 














2672 


1730# 




7^LL 


2583 




?S91 
t Jy 1 


2595 


coor 


7609 


2610 


2612 


2614 


2616 


2617 


2673 




?7n^ 


2812 




7MO 
cooc 


2895 


C07o 


7897 

COTf 


2898 


2899 


2920 


2923 


2933 


2949 


2973 


90fl1 


Ton? 

jUwc 


3024 




701(0 


3082 


JvOJ 


^1?6 

J 1 CO 


3142 


3143 


3148 


3160 


3162 


3169 


3174 


j£ 1 H 




3254 




T^no 


3302 


JJ J J 


3356 

J J JO 


3362 


3363 


3365 


3378 


3385 


3389 


3394 






3404 


T410 


^41 S 


3433 


T43S 

J*t J J 


J"* JO 


3442 


3514 


3517 


3525 


3560 


3563 


3576 






3622 


JW07 


^A72 

JO' b 


3673 


3674 

JO* *t 


3676 

JO' o 


3678 


3660 


3681 


3683 


3685 


3686 


3688 


3690 


3691 


3694 


3696 


3697 


3699 


3793 


3795 


3829 


3831 


3845 


3889 


3898 


3922 


3934 


3954 


3975 


3990 


3991 


3996 


4007 


4012 


4015 


4022 


4025 


4150 


4157 


4161 


4162 


4165 


4166 


4242 


4252 


4257 

^C V * 


4259 

^C J 


4261 


4262 


4267 


4268 


4280 


4283 


4290 


4291 


4295 


4300 


4??? 


4334 


4350 


4397 


4400 


4407 


4412 


4431 


4491 


4527 


4531 


4591 


4592 


4674 


4678 


4919 


4933 


4934 


4941 


4996 


4997 


5043 


5044 


5110 


5112 


5163 


5176 


5216 


5263 


5267 


5269 


5273 


5277 


5282 

^C Wfc 


5308 


5309 


5316 


5337 


5358 












1730f 
1730# 


2545 


2606 


2608 


2613 

CO 1 -J 


2665 

COO J 


2667 


2669 

COO * 


2670 

CO« V 


2671 


2676 


2687 


2688 


2689 


A^ A9 

2693 


2700 


7777 


2723 


2724 


?725 

C * C«/ 


2726 

C « CO 


2734 


2739 

C* J~ 


2743 

C» ~ J 


2750 


2755 


2756 


2757 


2758 


2759 


2767 


?771 


2811 


2838 


?845 

CO*t^ 


2873 

CO* J 


2881 




3003 

JvW J 


3010 


3013 


3022 


9A«%Jb 

3028 


3036 


9A^ A 

3040 


3041 


3047 


3063 


3070 


3073 


3076 

Wf o 


3084 


3095 

JOT J 


3146 


3159 


3161 


3163 


3166 


3167 


3168 


3172 


^171 

J 1 ' -J 


^195 


3199 


3200 
vc w 


3201 

JCV 1 


3205 


3206 


3217 

JC * ' 


3218 


3219 


3221 


3230 


3283 


3287 


3288 




'^294 


3296 


3?97 

JC 


3345 

JJ*t J 


3349 


3350 

JJJV 


3354 

J J J~ 


3357 


3369 


3375 


3393 


3395 


3399 


3405 


3406 


3429 


3434 


3484 


3507 


3515 


3516 

jy •o 


3524 

J JC~ 


3548 


3556 


3564 


3568 


3571 


3574 


3578 


3590 


3591 


3630 


3644 


3654 

JO J~ 


3668 


3671 


3675 

JO* J 


3679 


3684 


3689 


3693 


3695 


3700 


3701 


3771 


3776 


3794 


3800 


3806 

JO w 


3807 


3808 


3809 

J W r 


3810 


3818 


3828 


384i? 


3850 


9A^9 

3853 


3854 


3855 


3858 


3861 


3867 


3868 


3890 


3894 


3903 

J7V J 


3907 


3908 


3909 


3927 


3935 


9A^9 

3953 


3956 


3994 


4001 


4006 


4011 


4017 


4018 


4050 


4051 


4127 


4134 


4152 


4153 


4163 


» A94 

4231 


4237 


4240 


4246 


4272 


4275 


4289 


4298 


4299 


4310 


4318 


4320 


4325 


4326 


J 9^ A 

4340 


M 9^ A 

4348 


4351 


4391 


4396 


4405 


4406 


4454 

J^ 


4589 


4593 

^ J y J 


4675 

^O' J 


4715 


4922 


4932 


5067 


f AAA 

5089 


C4 A4 

5104 


5109 


5114 


5130 


5169 


5260 

^C w 


5285 

JCO J 


5288 


5294 

JC 


5295 

JC y J 


5296 


5300 


5307 


5310 






1730# 


2545 


2606 


2608 


2613 

CO 1 V 


2665 

COO J 


2667 


2669 

C007 


2670 

CO* V 


2671 


2676 


2687 


2688 


2689 


A^ A9 

2693 


2700 


2722 


2723 


2724 


2725 

C « C V 


2726 

C ' CO 


2734 


2739 

C J' 


2743 


2750 


2755 


2756 


2757 


2758 


A9f A 

2759 


2767 


2771 


2811 


2838 


2845 


2873 

CWr J 


2881 


2924 


3003 

JW J 


3010 


3013 


3022 


3028 


3036 


9A# A 

3040 


3041 


3047 


3063 


3070 


3073 


3076 

JVf o 


3084 


3095 

JV7 J 


3146 

J < ~o 


3159 


3161 


3163 


9« ^ ^ 

3166 


94 M 9 

3167 


94 ^ A 

3168 


3172 


3173 


'^195 


3199 


3200 
JC vv 


3201 
JC V i 


3205 


3206 

JCvO 


3217 

JC I « 


3218 


3219 


3221 


3230 


3283 


9 AA9 

3287 


3288 




JCT*t 


3296 


T297 


J j*f J 


3349 


3350 

J J Jv 


3354 

J J J"t 


3357 


3369 


3375 


99A9 

3393 


99 AP 

3395 


3399 


3405 




^4?9 

JtCT 


3434 


3484 


J JW« 


3515 


3516 
J y >o 


3524 

J JC^ 


3548 


3556 


3564 


3568 


3571 


9 P94 

3574 


3578 


^590 


3591 


3630 


JO"f "1 


JO J*t 


3668 


3671 

jor 1 


3675 

JO' J 


3679 


3684 


3689 


3693 


3695 


3700 


3701 


3771 


3776 


J794 


3800 


3806 


3807 


3808 


3809 


3810 


3818 


3828 


3846 


9 AP A 

3850 


9 AP 9 

3853 


3854 


3855 


3858 


3861 


3867 


3863 


3890 


3894 


3903 


3907 


3908 


3909 


3927 


3935 


9 AP9 

3953 


3956 


3994 


4001 


4006 


40T1 


4017 


4018 


4050 


4051 


4lcf 


/ 1 7/ 

H i5h 




Hi JJ 


H lOJ 


hcjI 


4237 


4240 


4246 


4272 


4274 


4275 


4277 


4289 


4293 


4298 


4299 


4310 


4318 


4320 


4322 


4325 


4326 


4334 


4340 


4348 


4351 


4391 


4396 


4405 


4406 


4454 


4589 


4593 


4675 


4715 


4922 


4932 


5067 


5089 


5104 


5109 


5114 


5130 


5169 


5260 


5285 


5288 


5294 


5295 


5296 
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5300 


5307 


5310 














(COUNT 


1730# 














3013 


3022 


SDO 


1730# 


2665 


2667 


2687 


2722 


2755 


2811 


3846 
5169 


3953 
5260 


3994 
5285 


4127 
5294 


4240 


4289 


4320 


4391 


4454 


SELSE 


1730# 


















SERRMS 


1730# 


















$EX1FA 


1730# 


















$EXIFO 


1730# 


















SEXIF2 


1730# 


















SEXIF3 


1730# 
















2667 


$GENBR 


1730# 


2545 


2606 


2608 


2613 


2618 


2621 


2665 


2689 


2692 


2693 


2699 


2700 


2705 


2708 


2722 


2723 




2739 


2742 


2743 


2749 


2750 


2755 


2756 


2757 


2758 




2777 


2811 


2813 


2838 


2845 


2847 


2873 


2876 


2881 




3022 


3025 


3028 


3036 


3040 


3041 


3047 


3063 


3065 




3091 


3095 


3112 


3127 


3146 


3149 


3159 


3161 


3163 




3173 


3195 


3197 


3199 


3200 


3201 


3205 


3206 


3208 




3230 


3283 


3287 


3288 


3292 


3294 


3296 


3297 


3299 




3369 


3371 


3373 


3375 


3388 


3391 


3393 


3395 


3399 




3441 


3484 


3507 


3515 


3516 


3523 


3524 


3548 


3556 




3571 


3574 


3578 


3588 


3590 


3591 


3630 


3644 


3654 




3687 


3689 


3692 


3693 


3695 


3698 


3700 


3701 


3771 




3809 


3810 


3813 


3817 


3818 


3826 


3828 


3834 


3846 




3858 


3860 


3861 


3867 


3868 


3871 


3890 


3893 


3894 




3933 


3935 


3953 


3955 


3956 


3976 


3994 


3997 


4001 




4051 


4060 


4127 


4134 


4139 


4152 


4153 


4163 


4168 




4263 


4272 


4274 


4275 


4277 


4279 


4282 


4289 


4293 




4320 


4322 


4325 


4326 


4327 


4331 


4334 


4337 


4338 




4402 


4405 


4406 


4411 


4418 


4454 


4458 


4589 


4593 




4932 


4936 


4940 


5067 


5089 


5104 


5109 


5113 


5114 




5285 


5288 


5294 


5295 


5296 


5299 


5300 


2665 


5307 


SGENTA 


1730# 


2549 


2615 


2618 


2620 


2621 


2623 


2667 


2692 


2693 


2696 


2697 


2699 


2702 


2705 


2708 


2722 




2739 


2742 


2745 


2746 


2747 
2811 


2749 


2753 


2755 


2761 




2773 


2774 


2775 


2777 


2813 


2840 


2847 


3044 




3013 


3016 


3019 


3022 


3025 


3033 


3039 


3043 




3075 


3078 


3081 


3083 


3091 


3099 


3100 


3110 


3124 




3175 


3176 


3177 


3178 


3179 


3180 


3182 


3197 


3198 




3213 


3216 


3219 


3225 


3226 


3227 


3228 


3229 


3232 




3305 


3306 


3307 


3347 


3348 


3353 


3364 


3371 


3372 




3397 


3398 


3402 


3408 


3409 


3414 


3416 


3417 


3432 




3528 


3529 


3550 


3552 


3558 


3559 


3561 


3562 


3566 




3589 


3593 


3594 


3595 


3640 


3657 


3658 


3677 


3679 




3703 


3704 


3705 


3706 


3707 


3708 


3783 


3784 


3796 




3817 


3818 


3821 


3822 


3826 


3830 


3834 


3846 


3848 




3874 


3875 


3876 


3877 


3878 


3893 


3897 


3905 


3906 




3939 


3953 


3955 


3958 


3974 


3994 


3997 


4003 


4235 




4063 


4127 


4136 


4139 


4155 


4159 


4167 


4169 




4279 


4281 


4282 


4284 


4285 


4286 


4289 


4301 


4303 




4328 


4330 


4331 


4333 


4334 


4337 


4338 


4339 


4343 




4410 


4411 


4415 


4416 


4418 


4454 


4458 


4589 


4595 




4931 


4932 


4936 


5070 


5089 


5104 


5111 


5113 


5136 




5285 


5290 


5294 


5298 


5299 


5300 


5303 


5304 


5306 


SIF 


1730# 


2545 


2606 


2608 


2613 


2669 


2670 


2671 


2676 




2725 


2726 


2734 


2739 


2743 


2750 


2756 


2757 


2758 



SEQ 0215 



3146 


3679 


3684 


3689 


3800 


3806 


4589 


4675 


4715 


4932 


5089 


5104 


2669 


2670 


2671 


2676 


2687 


2688 


272h 


2725 


272c 


2729 


2733 


2734 


2759 


2762 


2766 


2767 


2770 


2771 


2924 


3003 


3009 


3010 


VA1 V 


3016 


TA7A 

3070 


3073 


3076 


3078 


3083 


7AO/ 

3084 


3165 


3166 


T4 T 

3167 


3168 


71 71 

3171 


71 70 

3172 


3211 


3216 


3217 


3218 


701 A 

3219 


7001 

5221 


TT/ C 

3345 


334 r 


tXS A 

3349 


TTCA 

3350 


7TC/ 

3354 


7TC7 

555 r 


T/ AC 

3405 


T/ AX 

3406 


AA 

3408 


5414 


5429 


XJ XJ 

5454 




3361 


XC^J 

376h 


7CX^ 

3366 


7CAB 

5300 


7CiLO 
5507 




5ofi 


3oO 




5002 


500* 


bf fO 


T70Z 


3oUU 


5000 


50Ur 


50110 


50*tO 


709U 


3D33 


503* 


5033 


TBC7 

503 r 


JOTf 




3V0f 


57110 


ynrr 


T037 
yy CI 




hUvO 


Z,rt1 1 
hU I 1 


AA17 
•»U I r 


AA1B 


*U3U 




HC5f 


HCHV 


LOLX 


HC'tO 


*C30 








i.XMt 

*5U0 


*51U 


*5 10 






h5'*o 


*531 


*57l 


*5tD 


Hjyf 




HOf f 


Z71 C 
Hf 13 


/717 
Hill 


ZOO? 

*722 


CI 


CI / Z 


3107 


CI 71 

31 f 1 


CI 7C 

31 f 3 


320U 




^5\5 


CXI B 


3522 






£Oro 


c6B0 


cOOl 


2002 


OXB7 

200r 


207l 


crco 


ClCf 


2f 31 


c75c 


205 


07TB 
ClX 


Clti 


CfO^ 


07iLC 

cf63 


ctbo 


c70l 


077A 
2f fO 


2876 


ioro 


2883 


2926 


TAA1 

5001 


TAAB 
5008 




5Qti 


3066 


5068 


5Qfc 


7A7T 
50f 3 


iicf 


3146 


31*7 


5163 


71 7A 

51 rv 


71 71 

51 rl 


5c05 


3204 


3c03 


5208 


5210 


7011 

5211 




3290 


3291 


5294 


5299 


7<A1 

5501 


5575 


3303 


xxvt 
5597 


5368 


5590 


5591 


TL/ 1 

54*1 


3443 


5hy7 


3515 


7COO 

5322 


5325 


5^0f 


35 fO 


33f i 


* :b5 


5305 


7CB7 

530f 


360c 


3684 


368f 


TABO 
5007 


5692 


5otO 


3800 


3806 


1B1 ^ 

3812 


tBI T 

5815 


7B1C 

5615 


5616 


3852 


TBC7 

3857 


3860 


5864 


5665 


TB71 

56n 


3912 


3913 


3914 


5929 


595f 


5956 


4009 


/ A1 T 

4013 


4023 


/ A3Z 

4024 


/.AAA 

*000 


*002 








•»e"»T 




HcOv 


4304 


4305 


4308 


4315 


4320 


4322 


4346 


4347 


4354 


4355 


4391 


4402 


4597 


4675 


4677 


4715 


4717 


4925 


5137 


5143 


5168 


5169 


5171 


5260 


5312 


5313 


5315 


5318 


5322 




2688 


2689 


2693 


2700 


2723 


2724 


2759 


2767 


2771 


2838 


2845 


2873 
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CROSS REFERENCE 


2881 


?9?4 


5005 


9A4 A 

5010 


5028 


30i6 


3159 


5161 


5165 

J 1 wv 


5166 


5167 


5168 


3218 


5219 


5221 


919 A 

5250 


5285 

wv 


5287 


3357 


5569 


5575 


99A9 

5595 


5595 

W tW 


5599 


3548 


5556 


5564 

J^W~ 


5568 


5571 


5574 


3693 


5695 


5700 


99A4 

5701 


5771 


5776 


5854 


5855 


5858 


5861 


5867 


5868 


4001 


4006 


4011 


t A4 9 

4017 


4018 


4050 


4275 


4298 

9fc WSJ 


4299 


t 94 A 

♦510 


4518 


4525 


5067 


5109 


5114 


P 4 9 A 

5150 


5288 


5295 


1730# 


2545 


2606 

WWW 


1^ A4S 

2608 


2615 

fcW ' w 


2665 


2700 


2722 


2723 


272h 


2725 


2726 


2767 


2771 


2811 

fcW ■ ■ 


1 A9 A 

2838 


2845 


2873 


3040 


5041 


5047 


9A^ 9 

3065 


5070 


3073 


3163 


5166 

V ■ WW 


5167 

J 1 w • 


94 ^ A 

5168 


5172 


3173 


3221 


5250 


3285 

WV 


9 10 9 

5287 


5288 


5292 


3373 


5575 


5595 


99Af 

5595 


5599 


5405 


3556 


5561 


5564 


9P^ O 

5568 


5571 

J^ ' 1 


5574 


3675 


5679 


5684 


9 ^ A A 

5689 


5695 

JW 


5695 


3809 


5810 

JO I w 


5818 

«/W 1 W 


9ai A 

3828 


5846 


5850 


3903 


5907 


5908 

J 7 VW 


9AAA 

3909 


5927 


5955 


4018 


4050 


4051 

~ W ^ 1 


£ 4 19 

4127 


4154 


4152 


4272 


4275 


4289 


4298 


4299 


4510 


4405 


4406 


4454 


4589 


4593 


4675 


5130 


5169 


5175 


5260 


5285 


5288 


1730# 


4274 


4277 


4293 






4 7TAd« 

1730# 


2545 


2606 


2608 


2613 


2665 


2700 


2722 


2723 


2724 


2725 


2726 


19^ 9 

2767 


277^ 


2811 


2838 


2845 


2873 


9A / A 

3040 


5041 


5047 


9A^ 9 

5063 


3070 


3073 


94 ^ 9 

3163 


3166 


5167 


3168 


3172 


3173 


9114 

5221 


3250 


3283 


3287 


3288 


3292 


9999 

3373 


5575 


3593 


9 VAC 

3395 


3399 


3405 


9Pf ^ 

3556 


5561 


3564 


3568 


3571 


3574 


9^ 9C 

3675 


3679 


3684 


9^ DA 

3689 


3693 


3695 


90An 

3809 


3810 


5818 


9A1A 

3828 


3846 


3850 


9nA9 

3903 


3907 


5908 


9AAA 

3909 


3927 


3933 


/ A4 O 

4018 


4050 


4051 


4127 


4134 


4152 


/ 17^ 

4272 


4274 




Wclr 


4289 


4293 


M 9P4 

4351 


4391 


4396 


i t AC 

4405 


4406 


4454 


5104 


5109 


5114 


C4 VA 

5130 


5169 


5175 


4 9YAA« 

1730# 


2526 


2527 




2530 


2531 


A^ 

2607 


2609 


2610 


2611 


2612 


2614 


2672 


2673 


2674 


2675 


2677 


2679 


2788 


2793 


2796 


^7A7 

2197 


V9S 


2810 


2864 


2865 


2872 


2874 


2B77 


2879 


1A1A 

2920 


2922 


2923 


2925 


2933 


2949 


5023 


3024 


3029 


3034 


3037 


3038 


94 4 4 

3111 


3123 


3126 


94 / 1 

3141 


3142 


3143 


94 9^ 

3174 


3181 


3207 


91 A A 

3209 


3212 


3214 


99^ A 

3560 


3361 


3362 


99X9 

3363 


3365 


3366 


5396 


3405 


3404 


9/ 4 A 

3410 


3415 


3433 




3560 


3563 




3576 


3577 


3623 


3624 


3625 


3631 


3632 


3633 


3669 


3670 


3672 


3673 


3674 


3676 


3694 


3696 


3697 


3699 


3769 


3770 



3040 3041 3047 

5172 5175 5195 

5288 3292 5294 

5405 5406 5429 

5578 5590 5591 

5794 5807 3808 

5890 5894 5905 

4051 4154 4152 

4526 4540 4548 

5296 5500 5507 

2667 2669 2670 

2734 2759 2745 

2881 2924 5005 

5076 3083 3084 

3195 3199 3200 

3294 5296 3297 

3406 3429 3434 

5578 5588 5590 

5700 5701 5771 

3853 3854 5855 

5955 3953 5956 

4155 4165 4168 

4518 4520 4325 

4715 4922 4932 

5294 5295 5296 



2881 
3076 
3195 
3294 
3406 
3578 
3700 
3853 
3935 
4153 
4298 
4589 
5260 
2532 
2616 
2685 
2812 
2880 
2973 
3067 
3144 
3222 
3367 
3435 
3579 
3634 
3678 
3772 



2669 
2739 
2924 
3083 
3199 
3296 
3429 
3588 
3701 
3854 
3953 
4163 
4299 
4593 
5285 
2533 
2617 
2690 
2814 
2882 
2981 
3077 
3145 
3231 
3378 
3436 
3580 
3639 
3680 
3773 



2670 
2743 
3003 

$297 
3434 
3590 
3771 
3855 
3956 
4168 
4310 
4675 
5288 
2543 
2619 
2695 
2815 
2885 
3000 
3079 
3147 
3254 
3381 
3437 
3581 
3645 
3681 
3774 



3065 5070 

5199 5200 

5296 5297 

5454 5484 

5650 5644 

5809 5810 

5907 5908 

4155 4163 

4551 4396 
5510 

2671 2676 

2750 2755 

5009 5010 

3095 3112 

3201 3205 

5545 5549 

5484 5507 

5591 5650 

3776 3794 

5858 3861 

5976 3994 

4231 4237 

4326 4340 

4940 5067 

5300 5307 

2671 2676 

2750 2755 

3009 3010 

3095 3112 

3201 3205 

3345 3349 

3484 3507 

3591 3630 

3776 3794 

3858 3861 

3976 3994 

4231 4237 

4318 4320 

4715 4922 

5294 5295 



2544 
2622 
2703 
2827 
2895 
3002 
3080 
3148 
3298 
3382 
3442 
3584 
3646 
3683 
3777 



2547 
2635 
2704 
2839 
2896 
3011 
3082 
3150 
3300 
3384 
3459 
3585 
3647 
3685 
3778 



5075 5076 

5201 5205 

5545 5549 

5507 5515 

5654 5668 

5818 5828 

5909 5927 

4231 4237 

4405 4406 

2687 2688 

2756 2757 

3015 5022 

3127 3146 

3206 3217 

3350 3554 

5515 5516 

5644 5654 

5800 5806 

5867 5868 

4001 4006 

4240 4246 

4348 4351 

5089 5104 
5310 

2687 2688 

2756 2757 

3013 3022 

3127 3146 

3206 3217 

3350 3354 

3515 3516 

3644 3654 

3800 3806 

3867 3868 

4001 4006 

4240 4246 

4325 4326 

4932 4940 

5296 5300 

2583 2587 

2651 2652 

2709 2736 

2846 2848 

2897 2898 

3017 3018 

3085 3089 

3160 3162 

3302 3355 

3385 3386 

3514 3517 

3586 3620 

3648 3649 

3686 3688 

3779 3780 



SEO 

5084 5095 

5206 5217 

5550 5354 

5516 5524 

5671 5675 

5850 5855 

5935 5956 

4246 4272 

4593 4922 

2689 2693 

2758 2759 

3028 3036 

3159 3ioi 

3218 3219 

3357 3369 

3524 3548 

3668 3671 

3807 3808 

5890 5894 

4011 4017 

4258 4265 

4391 4596 

5109 5114 



2689 2695 

275S 2759 

3028 3036 

3159 3161 

3218 3219 

5357 5369 

5524 5548 

3668 3671 

3807 3808 

3890 3894 

4011 4017 

4258 4263 

4340 4348 

5067 5089 

5307 5310 

2591 2595 

2653 2664 

2737 2751 

2854 2856 

2899 2919 

3020 3021 

3097 3109 

3164 3169 

3356 3359 

3389 3394 

3525 3554 

3621 3622 

3650 3651 

3690 3691 

3781 3793 
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CROSS 


REFERENCE 


TABLE — 


MACRO NAMES 












SEQ 




3795 


3797 


3799 


3829 


3831 


3832 


3845 


10/ 7 

304 r 


3057 


3862 


3863 


3870 


3872 


3873 


3889 




3898 


3901 


3902 


3922 


3934 


3951 


3952 


3754 


TOCO 

3V5y 


3972 


3975 


3977 


3989 


3990 


3991 




3992 


TOOT 

3993 


3995 


3996 


3998 


4007 


4012 


h014 


/ m c 
hV 1 3 


4022 


4025 


4026 


4054 


4056 


4057 




4058 


4061 


1 A7T 

40/^3 


4074 


4075 


4076 


4078 


<»0f 7 


Z 1 3C 
H 1 e3 


4140 


4149 


4150 


4154 


4157 


4158 




4i61 


4162 


4 io5 


4166 


4239 


4241 


4242 


Z3/7 


4(JH0 


4252 


4253 


4254 


4256 


4257 


4259 




4261 


4262 


4cor 


4268 


4271 


4278 


4280 


L 5B1 


zonn 


4290 


4291 


4294 


4295 


4296 


4300 




4502 


4306 


4323 


4350 


4357 


4358 


4360 


A too 


ZTQZ 

*» J7H 


4397 


4399 


4400 


4403 


4407 


4412 




4431 


4471 


447e 


4527 


4528 


4530 


4531 


•»3jc 




4580 


4581 


4585 


4590 


4591 


4592 




4oUe 


4oU!> 


4010 


4617 


4624 


4631 


4638 


•»0*»3 


•»03c 


4659 


4666 


4669 


4671 


4674 


4678 






4Co4 


4oo0 


4687 


4689 


4691 


4693 


••073 


H070 


4698 


4703 


4714 


4716 


4718 


4917 






/QICl 

4t 17 


47C0 


4924 


4926 


4927 


4928 




•»7jU 


4933 


4934 


4937 


4939 


4941 


4950 






4yji 


H7JH 


4955 


4956 


4958 


4994 


*»773 


H770 


4997 


4998 


'♦999 


5000 


5001 


5002 






501c 


50c0 


5041 


5043 


5044 


5045 


30*»0 


3007 


5072 


5073 


5074 


5077 


5078 


5091 






>0t3 


307H 


5095 


5096 


5097 


509C 


cnoo 

3077 


C101 
3 lU 1 


5110 


5112 


5116 


5118 


5119 


5120 




5121 


5122 


5123 


5124 


5126 


5127 


5129 


5133 


5138 


5139 


5140 


5145 


5161 


5162 


5163 




5164 


5167 


5172 


5174 


5176 


5184 


5186 


5205 


5206 


5209 


5210 


5211 


5212 


5213 


5214 




7C 10 


pel f 


5clo 


3C 1 7 


PCCv 


JCC 1 


PCCC 


3cc*» 


C3i1 

3CH 1 


5?4? 






5246 


52S4 


5255 






COAT 

?C03 


5£0r 


5269 


5270 


5273 


5277 


C37A 
3cf 0 


3c0c 


5292 


5297 


5302 


5308 


5309 


5314 




93IO 


CXI 7 

531 f 


CXT7 
333 r 


5338 


5339 


5340 


5341 


3333 


3330 


5357 


5358 


5359 


5360 






•LPCNi 


1 7XnM 

1 r jUw 
1 7Tnif 




4334 


























•UrAoS 
•UPADD 


1 r jW 


OCBX 

c)o3 


0CB7 


2591 


2595 


2607 


2609 


3A73 
cOr C 


cOr 3 


2703 


2812 


2896 


2899 


2923 


3024 






J l*lO 


3 lOc 


3169 


3222 


3254 


3298 




J JVC 


3355 


3356 


3362 


3363 


3365 


3385 








^410 


3415 


3433 


3435 


3436 


XJUL7 


^514 


3517 


3525 


3560 


3563 


3576 


3b80 






j007 




3674 


3678 


3681 


3683 






3691 


3694 


3696 


3697 


3699 


3831 








XQXL. 


3954 


3975 


3990 


3996 


HWf 


40?? 

HVCC 


4025 


4157 


4161 


416c 


4242 


4252 






•icOo 




4283 


4290 


4300 


4322 


LXXL 




4397 


4407 


4412 


4431 


4591 


4674 




•»Of O 






4996 


5043 


5112 


5176 


3c ID 


^?AX 

3C03 


5267 


5269 


5273 


5277 


5282 


5308 






3310 




























•Or AND 


1 7TAii 






























•UPCDl 


1 7TAA 

1 f 3W 


cOl 1 


30 f 7 


4278 


4920 


4928 


4950 


3 IO*» 














2672 


KIrCDc 


IfjUW 


c343 


c34h 


2583 


2587 


2591 


2595 


cOUr 


cOOt 


2610 


2612 


2614 


2616 


2617 


COfJ 


cOr 3 




2812 


2815 


2882 


2895 


cOTO 


c07f 


2898 


2899 


2920 


2923 


2933 


2949 






OOfll 
ctOI 


300c 


3024 


3037 


3080 


3082 


3003 


XI 3A 

3 IcO 


3142 


3143 


3148 


3160 


3162 


3169 




T1 7/. 


3cl4 


7333 


3254 


3298 


3300 


3302 


3333 


3330 


3362 


3363 


3365 


3378 


3385 


3389 




33th 


3370 


3403 


3404 


3410 


3415 


3433 


XLXK 
3433 


XLXA 
3*30 


3442 


3514 


3517 


3525 


3560 


3563 




TC7A 

33rO 


33oU 


330H 


3622 


3669 


3672 


3673 


X/t7C 


XA7A 
30t0 


3678 


3680 


3681 


3683 


3685 


3686 




3000 


30tU 


307 1 


3694 


3696 


3697 


3699 


31 r J 


X7Q^ 

3r 73 


3829 


3831 


3845 


3889 


3898 


3922 




3t34 


3t3*» 


37f 3 


3990 


3991 


3996 


4007 




HV 13 


4022 


402S 


4150 


4157 


4161 


4162 




•* 103 


•1 lOO 


HCHC 


4252 


4257 


4259 


4261 


*COC 


ICOr 


4268 


4280 


4283 


4290 


4291 


4295 




43UU 


LX'3^ 
HJCC 


LXXL 


4350 


4397 


4400 


4407 


iil13 

•IS 'C 




4491 


4527 


4531 


4591 


4592 


4674 




40f o 


«»▼ It 


LOXX 

H733 


4934 


4941 


4996 


4997 


3V'»3 


JVHH 


5110 


5112 


5163 


5176 


5216 


5263 




C7A7 
3cO' 


3cOt 


C37X 
3c f 3 


5277 


5282 


5308 


5309 


33 10 


'iXX7 


5358 












•Orton 


1 77Ai> 


3Uf 7 


^37fl 
*ICfO 


4920 


4928 


4950 


5164 














2587 


2591 


vOrDcr 


1 7'?A« 
1 1 3W 


?<;3A 
c3cO 


3^37 


2528 


2530 


2531 


2532 


C333 




2544 


2545 


2547 


2583 




cOUO 


3An7 
cOOf 


2608 


2609 


2610 


2611 


9<t13 
COiC 


CO 1 J 


2614 


2616 


2617 


2618 


2619 


2621 




cOcc 


3AX^ 


3A'^1 
c03 1 


2652 


2653 


2664 


2665 


cOO' 


3AA0 

C007 


2670 


2671 


2672 


2673 


2674 


2675 




3A7A 


5A77 


3A70 
cOf 7 


2685 


2687 


2688 


2689 


3Aon 

COTW 


3A03 

C07C 


2693 


2695 


2699 


2700 


2703 


2704 




crU3 


37nfl 
cr US 


Cf 07 


2722 


2723 


2724 


2725 


37M 
cr CO 


3730 

CI C7 


2733 


273A 


2736 


2737 


2739 


2742 






37AO 


37Cn 
cr 30 


2751 


2755 


2756 


2757 


cr 30 


37S0 

ClJr 


2762 


2766 


2767 


2770 


2771 


2777 




2788 


2793 


2796 


2797 


2798 


2810 


2811 


2812 


2813 


2814 


2815 


2827 


2838 


2839 


2845 




2846 


2847 


2848 


2854 


2856 


2864 


2865 


2872 


2873 


2874 


2876 


2877 


2879 


2880 


2881 




2882 


2885 


2895 


2896 


2897 


2898 


Ann 

2899 


2919 


2920 


2922 


2923 


2924 


2925 


0O77 
2733 


29h9 




2973 


2981 


3000 


3002 


3003 


3009 


3010 


3011 


3013 


3016 


3017 


3018 


3020 


3021 


3022 




3023 


3024 


3025 


3028 


3029 


3034 


3036 


3037 


3038 


3040 


3041 


3047 


3063 


3065 


3067 




3070 


3073 


3076 


3077 


3078 


3079 


3080 


3082 


3083 


3084 


3^85 


3089 


3091 


3095 


3097 
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3109 


3111 


3112 


3123 


31<;6 


3i;;7 


3141 




3150 


3159 


3160 


3161 


3162 


3163 


3164 




3174 


3181 


3195 


3197 


3199 


3200 


3201 




3216 


321? 


3218 


3219 


3221 


3222 


3230 




3297 


3298 


3299 


3300 


3302 


3345 


3347 




3361 


3362 


3363 


3365 


3366 


3367 


3369 




3386 


3388 


3389 


3391 


3393 


3394 


3395 




3411 


3414 


3415 


3429 


3433 


3434 


3435 




3511 


3514 


3515 


3516 


3517 


3521 


3523 




3560 


3561 


3563 


3564 


3566 


3568 


3569 




3581 


3584 


3585 


3586 


3588 


3590 


3591 




3632 


3633 


3634 


3639 


3644 


3645 


3646 




3670 


3671 


3672 


3673 


3674 


3675 


3676 




3686 


3687 


3688 


3689 


3690 


3691 


3692 




3701 


3769 


3770 


3771 


3772 


3773 


3774 




3795 


3797 


3799 


3800 


3806 


3807 


3808 




3831 


3832 


3834 


3845 


3846 


3847 


3848 




3861 


3862 


3863 


3867 


3868 


3870 


3871 




3901 


3902 


3903 


3907 


3908 


3909 


3922 




3955 


3956 


3959 


3972 


3975 


3976 


3977 




3997 


3998 


4001 


4003 


4006 


4007 


4011 




4050 


4051 


4054 


4056 


4057 


4058 


4060 




4127 


4134 


4139 


4140 


4149 


4150 


4152 




4166 


4168 


4231 


4237 


4239 


4240 


4241 




4256 


4257 


4258 


4259 


4261 


4262 


4263 




4279 


4280 


4282 


4283 


4288 


4289 


4290 




4301 


4302 


4306 


4308 


4310 


4318 


4320 




4338 


4340 


4346 


4348 


4350 


4351 


4357 




4400 


4402 


4403 


4405 


4406 


4407 


4411 




4528 


4530 


4531 


4532 


4534 


4580 


4581 




4605 


4610 


4617 


4624 


4631 


4638 


4645 




4678 


4682 


4684 


4686 


4687 


4689 


4691 




4717 


4718 


4917 


4918 


4919 


4920 


4922 




4934 


4936 


4937 


4939 


4940 


4941 


4950 




4996 


4997 


4998 


4999 


5000 


5001 


5002 




5067 


5069 


5072 


5073 


5074 


5077 


5078 




5098 


5099 


5101 


5104 


5109 


5110 


5112 




5123 


5124 


5126 


5127 


5129 


5130 


5133 




5164 


5167 


5169 


5171 


5172 


5174 


5175 




5212 


5213 


5214 


5216 


5217 


5218 


5219 




5246 


5254 


5255 


5256 


5260 


5263 


5267 




5292 


5294 


5295 


5296 


529? 


5299 


5300 




5316 


5317 


5318 


5322 


5337 


5338 


5339 


SOPEQU 


1730# 














SOPNAN 


1730# 














SOPNEG 


1730# 














SOPNOR 


1730# 














SOPNOT 


1730<r 
5358 


2543 


2610 


2616 


2675 


2897 


3080 


SOPOR 


1730# 


2617 


2882 


3396 


3404 


3795 




SOPROT 


1730# 








2530 




2532 


SOPRO 


1730* 


2526 


^^^^ 

2527 


2528 


2531 




2664 


2674 


2677 


2679 


2685 


2690 


2695 




2797 


2798 


2810 


2814 


2827 


2839 


2846 




2879 


2880 


2885 


2919 


2922 


2925 


3000 




3038 


3067 


3077 


3089 


3097 


3109 


3111 



- MACRO NAMES SEQ 0218 



3142 


3143 


3U4 


3145 


3146 


3147 


3148 


3149 


3165 


3166 


3167 


3168 


3169 


3171 


3172 


3173 


3205 


3206 


3207 


3208 


3209 


3211 


3212 


3214 


3231 


3254 


3283 


3287 


3288 


1292 


3294 


3296 


3349 


3350 


3354 


3355 


3356 


3357 


3359 


3360 


3371 


3373 


3375 


3378 


3381 


3382 


3384 


3385 


3396 


3399 


3403 


3404 


3405 


3406 


3408 


3410 


3436 


3437 


3438 


3441 


3442 


3459 


3484 


3507 


3524 


3525 


3527 


3548 


3554 


3556 


3557 


3558 


3571 


3574 


3575 


3576 


3577 


3578 


3579 


3580 


3620 


3621 


3622 


3623 


3624 


3625 


3630 


3631 


3647 


3648 


3649 


3650 


3651 


9^ P 4 

3654 


9^ ^ A 

3666 


9^ ^ A 

3669 


3678 


3679 


3680 


3681 


3682 


9 ' A9 

3683 


9^ A £ 

3684 


9^ AP 

3685 


3693 


3694 


3695 


3696 


3697 


9 y A A 

3698 


9 ^ AA 

3699 


99AA 

3700 


3776 


3777 


3778 


3779 


W A A 

3780 


3781 


3793 


9 9 Ay 

3794 


3809 


3810 


3813 


3817 


3818 


3826 


3828 


3829 


3850 


3853 


3854 


3855 


3857 


3858 


3859 


3860 


3872 


3873 


3889 


3890 


3893 


3894 


3897 


3898 


3927 


3933 


3934 


3935 


3951 


3952 


3953 


3954 


3989 


3990 


3991 


3992 


3993 


3994 


9 AAP 

3995 


9 AA^ 

3996 


4012 


4014 


4015 


4017 


4018 


4022 


4025 


4026 


4061 


4073 


4074 


4075 


4076 


4078 


4079 


4125 


4153 


4154 


4157 


g it PA 

4158 


4161 


4162 


« 4 ^ 9 

4163 


4165 


i*2'*2 


4243 


4246 


4247 


4248 


4252 


/ ^r9 

4253 


4254 


4267 


4268 


4271 


4272 


4274 


g ^9r 

4275 


/ ^99 

h277 


/ ^90 

4278 


4291 


4293 


4294 


4295 


4296 


4298 


4d99 


4300 


h122 


4323 


4325 


4326 


4327 


4331 


4334 


S 999 

4337 


4358 


4360 


4391 


4392 


4394 


i 9n^ 

4396 


/ 9A9 

4397 


/ 9AA 

4399 


4412 


4418 


4431 


4454 


4458 


4491 


4492 


4527 


4585 


4589 


4590 


4591 


4592 


4593 


4597 


4602 


4652 


4659 


4666 


4669 


g M 94 

4671 


g M 9^ 

4674 


a £ 9P 

4675 


y ^ 9 1 

467f 


4693 


4695 


4696 


4698 


4703 


4714 


4715 


4716 


4924 


4926 


4927 


4928 


4929 


4930 


g A9^ 

4932 


g A99 

4933 


4951 


4952 


4954 


4955 


4956 


4958 


4994 


4995 


5003 


5012 


5026 


5041 


5043 


5044 


5045 


5046 


5089 


5091 


5092 


5093 


5094 


5095 


5096 


5097 


5113 


5114 


5116 


5118 


P4 4 A 

5119 


P 4 "^A 

5120 


P4 '^4 

5121 


P4 

5122 


5138 


5139 


5140 


5143 


5145 


5161 


5162 


5163 


5176 


5184 


5186 


5205 


5206 


5209 


5210 


5211 


5220 


5221 


5222 


5224 


5241 


5242 


P A # 9 

5243 


r Ay f 

5245 


5269 


5270 


5273 


5277 


5278 


5282 


5285 


5288 


5302 


5306 


5307 


5308 


5309 


5310 


5313 


5314 


5340 


5341 


5355 


5356 


5357 


5358 


5359 


5360 


3142 


3622 


WAV 

3793 


mA4 

y9l 


g r#\A 

4592 


M A9 J 

4934 


g AA9 

4997 


5044 


2533 


2547 


2619 


2622 


2635 


2651 


2652 


2653 


2704 


2709 


2736 


2717 


2751 


2788 


2793 


2796 


2848 


2854 


2856 


2864 


2865 


2m 


2874 


2877 


3011 


3017 


3018 


3020 


3021 


3023 


3029 


3034 


3123 


3141 


3144 


3145 


3147 


3150 


3164 


3181 



PARAMETER COOING MACYll 
CZTUVB.Pll 12-JUL-83 09:26 





3207 


3209 


3212 




3554 


3557 


3575 




3633 


3634 


3639 




3774 


3777 


3778 




3873 


3901 


3902 




4054 


4056 


4057 




4158 


4239 


4241 




4323 


4334 


4357 




4581 


4585 


4590 




4671 


4682 


4684 




4917 


4918 


4924 




4994 


4995 


4998 




5073 


5074 


5077 




5118 


5119 


5120 




5161 


5162 


5167 




5217 


5218 


5219 




5270 


5278 


5292 




5360 






SOPRI 


1730# 


2611 


3079 


$0PR2 


1730# 


2543 


2544 




2673 


2675 


2703 




2973 


2981 


3002 




3174 


3214 


3222 




3394 


3396 


9 J A9 

3403 




3576 


3580 


3584 




3688 


3690 


3691 




3934 


3954 


3975 




4165 


4166 


k2'*2 




4300 




4334 




4678 


4919 


4933 




5267 


5269 


P'>^9 

5273 


SOPSHF 


1730# 


2815 


2895 


SOPSUB 


1730# 


2544 


2612 




3174 


3378 


3672 




4295 


4531 


4919 


SOPSUB 


1730# 


2611 




SOPXOR 


1730# 






SOR 


1730# 


2693 


2739 


$PUT 


1730# 






SSTRUC 


1730# 






SSU80N 


1730# 


2549 


2615 




2699 


2702 


2705 




2753 


2761 


'\9^ t 

2762 




2876 


2878 


^ A A9 

2883 




3066 


3072 


3075 




3175 


3176 


94 99 

3177 




3216 


3225 


3226 




3347 


3348 


99P9 

3353 




3409 


3414 


3416 




3561 


3562 


3566 




365 r 


3656 


itff 




3796 


3812 


3813 




3864 


3865 


3871 




3933 


3937 


3938 




4062 


4063 


4136 




4281 


4282 


4284 
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3231 


3359 


3360 


99^ * 

3361 


3577 


3579 


3581 


9 f Ar 

3585 


3645 


3646 


3647 


9 y J A 

3648 


3779 


3780 


3781 


3797 


3951 


3952 


3959 


9 A9'% 

3972 


4058 


4061 


M 1*99 

4073 


i A9/ 

4074 


4247 


4248 


4253 


4254 


4358 


» 9y A 

4360 


a 9A^ 

4392 


^ 9Ai 

4394 


4602 


4605 


^ ^ 4 A 

4610 


4617 


4686 


a M A9 

4687 


t A AA 

4689 


^ ^ A4 

4691 


4926 


4927 


i A*^n 

4929 


/ AYA 

4930 


4999 


5000 


5001 


5002 


5078 


5091 


5092 


5093 


5121 


^4 

5122 


^4 ^9 

5123 


5124 


P 4 9^ 

5172 


5174 


5184 


5186 


5220 


P f%4 

5221 


5222 


5224 


5297 


f 9A^ 

5302 


f T4 / 

5314 


5317 


M ^9A 

4278 


4920 


/ A^O 

4928 


/ ACA 

4950 


A9 

2583 


09 

2587 


2591 


2595 


^ A 4 ^ 

2812 


2815 


2882 


2895 


3024 


9A99 

3037 


9AA A 

3080 


9 A A^ 

3082 


3254 


3298 


3300 


3302 


T/ A/ 

3404 


T/ 4 A 

3410 


3415 


3433 


3622 


3669 


3672 


TZ7T 

3673 


369* 


3696 


TZ.Q7 

3oVr 


3699 


TOAA 


3991 


TOAZ. 

3996 


/ AA7 


425Z 




4259 


HCbl 


/ TCA 

4350 


4397 


/ / A A 

4400 


4407 


4934 


4941 


4996 


4997 


5277 


5282 


f TAO 

5308 


CTAA 

5309 


3143 


3214 


3394 


4015 




3000 
COTO 






3676 


3680 


3685 


i690 


5110 


5163 


5337 




2767 


3073 


3205 


3219 



2618 


2620 


2621 


2623 


2708 


2728 


2729 


2731 


2764 


2765 


2766 


2770 


2926 


3008 


3009 


3016 


3078 


3081 


3083 


3091 


3178 


3179 


3180 


3182 


3227 


3228 


3229 


3232 


3371 


3372 


3373 


3383 


3417 


3432 


3441 


344? 


3567 


3570 


3573 


3582 


3682 


3687 


3692 


3698 


3815 


3816 


3817 


3821 


3874 


3875 


3876 


3877 


3939 


3955 


3958 


3976 


4139 


4155 


4167 


4168 


4285 


4286 


4301 


4303 



N 1 
81-12 
MACRO 



3366 


3?67 


3381 


3382 


3586 


3620 


3621 


9 ^ '%9 

3623 


3649 


3650 


3651 


3670 


3799 


3832 


3847 


9 AP A 

3859 


3977 


9 AA/% 

3989 


3992 


9AA9 

3993 


4075 


4076 


4078 


1 a9A 

4079 


4256 


t ^94 

4271 


a ^AA 

4288 


/ OA/ 

4294 


t 9AA 

4399 


t t A9 

4403 


a a AO 

4492 


/ POO 

4528 


4624 


/ d 94 

4631 


t d 9A 

4638 


a 1 a P 

4645 


4693 


/ d AP 

4695 


t d A^ 

4696 


a d. AO 

4698 


/ AV9 

4937 


/ ATA 

4939 


/ AC4 

4951 


/ AC^ 

4952 


5003 


5012 


5026 


5041 


5094 


5095 


5096 


5097 


5126 


C4 ^7 

5127 


C4 OA 

5129 


C4 

SI 33 


5205 


5206 


5209 


eo4 A 

5210 


O/ 4 

5241 


CO/ O 

5242 


5243 


CO/ c 

5245 


5338 


5339 


CT/ A 

5340 


5341 


r 4^ / 

5164 








2607 


O^ AA 

2609 


2610 


2612 


2896 


2o9r 


2898 


2899 


3085 


T4 O^ 

3126 


3142 


3143 


3355 


3356 


3362 


3363 


3A35 


T/ XL. 

3436 


34*2 


TCI / 

351h 


TZ7/ 

36 r 4 


3676 


36 


36o0 


3f 93 


3/^95 


TQ90 

3829 


TQT1 

3o31 


/ A10 

4012 


4015 


4022 


*025 


4262 


/ OA7 

426f 


420o 




4412 


4431 


4491 


4527 


5043 


5044 


5110 


5112 


5316 


5337 


5358 




4150 


4259 


4262 


4291 


<yvf 


907X 


9001 


TOO? 


3829 


3889 


3898 


4012 


3294 


3818 


5300 





2678 


2680 


2681 


2682 


2732 


2733 


2738 


2742 


2773 


2774 


2775 


2777 


3019 


3025 


3033 


3039 


3099 


3100 


3112 


3127 


3197 


3198 


3203 


3204 


3286 


3290 


3291 


3299 


33"<7 


3388 


3390 


3391 


3497 


3513 


3522 


3523 


3583 


3587 


3588 


3589 


3703 


3704 


3705 


3706 


3822 


3826 


3830 


3834 


3878 


3893 


3897 


3905 


3997 


4003 


4005 


4009 


4169 


4235 


4243 


4244 


4304 


4305 


4308 


4315 



SEQ 0219 



9 9a/ 

3384 


9 9 A^ 

3386 


9 / T9 

3437 


7 / CA 

3459 


3624 


9^ Of 

3625 


9Z T4 

3631 


TZ. TO 

3632 


9 9^ A 

3769 


999A 

3770 


3772 


3773 


9A^ O 

3862 


90^ 9 

3863 


T07A 

3870 


3872 


9 AAr 

3995 


9 AAO 

3998 


/ A4 / 

4014 


/ AOZ. 

4026 


/ 4 Of 

4125 


/ 4 / A 

4140 


/ 4 / A 

4149 


/icy 

4154 


/ OAZ 

4296 


/ TAO 

4302 


J TA^ 

4306 


4322 


4530 


4532 


/ CT/ 

453* 


4590 


4652 


/ Z CA 

4659 


4666 


/ AZA 

4669 


/ 7AT 

4703 


/ 74 / 

4714 


h7i6 


y 71 Q 


y AC/ 

4954 


/ ACC 

4955 


y AC^ 
h95o 


y ACO 
4958 






3 WOT 




5098 


5099 


5101 


5116 


5138 


5139 


5140 


5145 


5211 


5212 


5213 


5214 


5246 


5254 


5255 


5256 


5355 


5356 


5357 


5359 



2614 


2616 


2617 


2672 


2920 


2923 


2933 


2949 


3148 


3160 


3162 


3169 


3365 


3378 


3385 


3389 


3517 


3525 


3560 


3563 


3681 


3683 


3685 


3686 


3845 


3889 


3898 


3922 


4150 


4157 


4161 


4162 


4283 


4290 


4291 


4295 


4531 


4591 


4592 


4674 


5163 


5176 


5216 


5263 


4400 


4491 


4527 


5337 


3082 


3085 


3126 


3160 


4165 


4166 


4257 


4261 



2691 


2692 


2696 


2697 


2745 


2746 


2747 


2749 


2813 


2840 


2847 


2849 


3043 


3044 


3051 


3065 


3149 


3165 


3170 


3171 


3208 


3210 


3211 


3213 


3301 


3305 


3306 


3307 


3397 


3398 


3402 


3408 


3528 


3529 


3558 


3559 


3593 


3594 


3595 


3640 


3707 


3708 


3783 


3784 


3848 


3852 


3857 


3860 


3912 


3913 


3914 


3929 


4013 


4023 


4024 


4060 


4249 


4258 


4263 


4279 


4322 


4328 


4330 


4331 
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CROSS 
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TABLE — 


MACRO NAMES 












SEQ 




4333 


4334 


4337 

■f J J 1 


4338 


4339 


43'»3 


4346 


4347 


4354 


4355 


4402 


4410 


^ > 4 4 

4411 


4415 


4416 






4458 


4595 


4597 


4677 


4717 


4925 


4936 


4940 


5070 


r 'V 4 4 

5111 


f 4 4 T 

5113 


e- 4 Ty 

5136 


r 4 TT 

5137 


f 4 J T 

5143 




5171 


5175 


5290 


5298 


5299 


5303 


5304 


5306 


5312 


5313 


5315 


r T 4 A 

5318 


5322 






STHEN 




2545 


2606 


2608 


2613 


2669 


^A 

2670 


2671 


2676 


2688 


2689 


2693 


2700 


2725 


^ T^/ 

2724 


2725 


2726 


2734 


2739 


2743 


2750 


2756 


2757 


2758 


•%TCA 

2759 


2>67 


2771 


lO TO 

2838 


2845 


TT 

2873 




2881 


2924 


3003 


3010 


3028 


3036 


3040 


3041 


3047 


TA^ T 

3063 


TATA 

3070 


T ATT 

3073 


TATZ 

3076 


TAO/ 

3084 


TAAC 

3095 




3159 


3161 


3163 


3166 


3167 


3168 


74 70 

3172 


3173 


3195 


3199 


3200 


TIA^ 

3201 


T^AC 

3205 


70A^ 

3206 


T0 1 7 

3217 




3218 


3219 


3221 


3230 


3283 


7007 

3287 


7000 

3288 


3292 


329«. 


7 0AZ 

3296 


3^97 


TT/ C 

3345 


TTy A 

3349 


77CA 

3350 


7TCy 

3354 




3357 


3369 


3375 


WAT 

3393 


3395 


T7AA 

3399 


7/ AC 

3405 


3406 


3429 


7/ 7/ 

3434 


7/ O/ 

3484 


T C AT 

350/ 


TCi C 

3515 


7C1 A 

3516 


7coy 
3524 




3548 


3556 


3564 


3568 


3571 


7C7/ 

3574 


7C70 

3578 


3590 


3591 


7X7A 

3630 


7Z/ / 

3644 


TZ^ C/ 

3654 


3668 


7^71 

3671 


7Z7C 

3675 




3693 


3695 


3700 


3701 


1'771 

3^71 


Of ft 


3f 


3807 


3808 


7BAO 

3809 


7B1 A 

38"0 


7B1 O 

3818 


7BOB 

3828 


7BCA 

3850 


7BCZ 

3853 




3854 


3855 


3858 


3861 


3867 


3o6B 


70aA 

3890 


3894 


3903 


70A7 

390f 


70AB 

39P8 


70A0 

3909 


7O07 

3927 


707C 

3935 


70CZ 

3956 




4001 


4006 


4011 


40 If 


/ A1 O 

4018 


/ ACA 

4050 


/ AC1 

4051 


4134 


4152 


/ 1 C7 

4153 


4163 


/ 071 

4231 


/ 077 

4237 


/ 0/ z 

4246 


/ 070 

4272 




4275 


4298 


4299 


4310 


4318 


/ 70C 

4325 


/ 70A 

4326 


4340 


4348 


/ 7C1 

4351 


4396 


/ / AC 

4405 


/ / AZ 

4406 


/ COT 

4593 


/ ooo 
4922 




5067 


5109 


5114 


5130 


5288 


5295 


5296 


5300 


5307 


C71 A 

5310 












STILA 


1730# 






























STILO 


1730# 






























SUNTL2 


1730# 


3083 


3127 


3373 


35oi 






















SUNTL3 


1730# 






























SUHILE 


1730# 


2665 


2667 


268 r 


CI a 


2755 


001 1 


3013 


3022 


71 / 

31 4o 


36/7 


3oOh 


7/ BO 

3009 


7B/1A 
3000 


7B/VZ 

3006 




3846 


3953 


3994 


/ 1 'it 


4240 


4289 


/ 70A 

4320 


4391 


4454 


/ CBO 

45o7 


46/5 


/ 71 C 

4/15 


/ 070 

4932 


CABO 

5089 


C1/\/ 

5104 




5169 


5260 


5285 


COO/ 

5294 
























SSOEFA 


1730# 






























SSEPOS 


1730# 






























&SERRO 


1730# 






























SSGEN 


1730# 


2549 


2615 


CO to 


cOcU 


cOcI 


OiL97 

2023 


2665 


2667 


OiL7fl 

20f o 


2oOU 


2001 


2002 


OiLfi7 

200/ 


0AO1 

2091 




2692 


2693 


2696 


ctrff 


20T7 


07A0 


cfvy 


2708 


2722 


070B 
CI CO 


2/27 


0771 

2/ -1 


CISC 


07TT 

2/33 


OTTB 

2/30 




2739 


2742 


2745 




07/.7 
Cf'*l 


07ZO 


07CT 

203 


2755 


2761 


07A0 
ClOC 


2/Os 


2/05 


2/00 


2/0/ 


077A 

CI fyj 




2773 


2774 


2775 


"my 
CtJl 


2811 


2Sl3 


OS/ A 

2840 


2847 


2849 


OB?A 

28/6 


OB7B 

2878 


OBfi7 

2883 


oooz 
2926 


T/\A1 

3001 


3008 




3013 


3016 


3019 


3022 


7AOC 

3025 


7A77 

3033 


7A70 

3039 


3043 


3044 


7AC1 

3051 


7AZC 

3065 


7AZX 

3066 


7/\Z.B 

3068 


TA70 

3072 


TA77 

3073 




3075 


3078 


3081 


3083 


7A01 

3091 


7AAO 

3099 


71 AA 

3100 


3110 


3124 


71 07 

3127 


71 / A. 

3146 


71 / O 

3149 


71 ZC 

3165 


71 7A 

31/0 


71 71 

31 71 




3175 


3176 


3177 


31 


71 TO 

31 fV 


71 PA 

3180 


71 BO 

3182 


3197 


3198 


70A7 

3203 


3204 


70/\C 

3205 


3208 


701 A 

3210 


701 1 

3211 




3213 


3216 


3219 


* IOC 

3223 


3226 


7007 

3227 


700B 

3228 


3229 


3232 


7oaA 
3286 


700A 

3290 


7001 

3291 


700/. 

3294 


TOMl 

3299 


TTA1 

3301 




3305 


3306 


3307 


3347 


77/ O 

3348 


77C7 

3353 


77A/ 

3364 


3371 


3372 


7777 

3373 


77D7 

3383 


7787 

3387 


7700 

3388 


T70A 

3390 


TT01 

3391 




3397 


3398 


3402 


T/ AO 

3408 


7/ AA 

3409 


7/ 1 / 

3414 


7/ 1 A 

3416 


3417 


3432 


7/ / 1 

3441 


7y / 7 
3443 


7/ 07 

349/ 


7C1 7 

3513 


7COO 

3522 


7C07 

3523 




3528 


3529 


3550 


TCCO 


3558 


3559 


7C^1 

3561 


3562 


3566 


7CA7 

3567 


7C7A 

35/0 


7C77 

35/3 


7CBO 

3582 


7CB7 

3583 


7CB7 

3587 




3589 


3593 


3594 


TCQC 


3640 


7^C7 

3657 


3656 


3677 


3679 


3002 


TAB/. 


7XB7 

3o0/ 


Til BO 

30o9 


TXOO 

3092 


3o9o 




3703 


3704 


3705 


T7AA 

3/^06 


3i 07 


77Aa 

3708 


7787 


3784 


3796 


3000 


30OO 


7B1 O 

3012 


TBI T 

3013 


TBI C 

3015 


TBI A 

3016 




3817 


3818 


3821 


3822 


3826 


7a7A 

3830 


3834 


3846 


3848 


TBCO 

3852 


7BC7 

3857 


7BX.A 

3860 


7BA/ 

3864 


7BXC 

3865 


TBTI 

3871 




3874 


3875 


3876 


7077 

3877 


707S 

3878 


7007 

3893 


7BO? 

389/ 


3905 


3906 


701 O 

3V12 


701 7 

3913 


701 /. 

3914 


TOOO 

3929 


70T7 

393/ 


70TB 

3938 




3939 


3953 


3955 


3958 


707/ 

3974 


700/ 

3994 


7007 

3997 


4003 


4005 


4009 


4013 


/.A07 

4023 


/.AO/. 

4024 


40d0 


ZAAO 

4062 




4063 


4127 


4136 


4139 


4155 


/ 4 CO 

4159 


4167 


4169 


4235 


4240 


4243 


/ 0/.Z 

4244 


/ 0£0 

4249 


^255 


^260 




4279 


4281 


4282 


4284 


4285 


/ oox 
4286 


/ ooo 
4289 


4301 


4303 


4304 


/7AC 

^305 


/ 7AB 

4300 


/TIC 

4315 


4320 


4322 




4328 


4330 


4331 


/ ITT 

4333 


/ 77/ 

4334 


/ 777 

433a 


/ 77a 
4338 


4339 


4343 


Z7ZX 

*3*0 


Z7Z7 


Z7CZ 

*35* 


ZTCC 

4355 


ZTOI 

4371 


ZZAO 

**02 




4410 


4411 


4415 


44l6 


//IS 

4410 


/ / c/ 
4454 


/ / CO 

4458 


4589 


4595 


ZC07 

457/ 


ZX7C 
40/5 


ZA77 

*0/ / 


Z71C 

4/15 


Z717 
•tfti 


zooc 
*925 




4931 


4932 


4936 


5070 


5089 


CI A/ 

5104 


C1 1 1 

5111 


5113 


5136 


CI 77 

513/ 


C1/7 

5143 


CI AB 

5168 


C1Z.Q 

5169 


CI 71 

51 If 


COAA 

5200 




5285 


5290 


5294 


5298 


5299 


C7AA 

5300 


C7A7 

5303 


5304 


5306 


CT1 O 

5312 


C71 7 

5313 


C71C 

5315 


CT1B 

5310 


5322 


269/ 


SSGETS 


1730f 


2549 


2615 


2618 


2620 


2621 


OZ. OT 

2623 


2678 


2680 


2681 


OZ.BO 

2682 


OZOI 

2691 


2692 


ozoz 
2090 




2699 


2702 


2705 


2708 


2728 


2729 


0774 

273' 


2732 


2733 


077B 

2738 


07/ O 
Cf*tC 


07/ C 

2/45 


07/ Z 

2746 


07/ 7 
ill*! 


07ZO 

2/49 




2753 


2761 


2762 


2764 


2765 


2766 


2770 


2773 


2774 


077C 
i'lJ 


0777 
CI If 


OD1 7 

2813 


OO/ A 

2840 


OB/ 7 


OBZij 

284V 




2876 


2B7S 


2883 


2926 


TAAO 

3008 


7AAn 

3009 


7A1 

3016 


3019 


3025 


7A7T 

3033 


7A70 

3039 


T/W 7 

3043 


T/V L 

304* 


TAC1 

3051 


T/WCC 

3005 




3066 


3072 


3075 




JvO 1 


3vOJ 




3099 


3100 


311? 

jl tC 


3177 


J 1 H7 


31 6S 


3170 

^ 1 / V 


3171 




3175 


3176 


3177 


3178 


3179 


3180 


3182 


3197 


3198 


3203 


3204 


3208 


3210 


3211 


3213 




3216 


3225 


3226 


3227 


3228 


3229 


3232 


3286 


3290 


3291 


3299 


3301 


3305 


3306 


3307 




3347 


3348 


3353 


3371 


3372 


3373 


3383 


3387 


3388 


3390 


3391 


3397 


3398 


3402 


3408 




3409 


3414 


3416 


3417 


3432 


3441 


3443 


3497 


3513 


3522 


3523 


3528 


3529 


3558 


3559 



PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 



C2TUVB.P11 12 


-JUL -83 09:26 




CROSS REFERENCE 






3561 


3562 


3566 


TCiLT 


3570 


35"^3 


33Bc 




3657 


3658 


3677 


5ooc 


3687 


3692 


jOtO 




3796 


3812 


3813 


TBI C 


3816 


3817 


7031 




3864 


3865 


3871 


TB7/ 


3875 


3876 


7fl77 




3933 


3937 


3938 


XOXO 

jyyr 


3955 


3958 


707^ 
jyfo 




4062 


4063 


4136 


L 1 TO 


4155 


4167 


L 1 ^fl 
<t 100 




4281 


4282 


4284 




4286 


4301 






4333 


4334 


4337 


/TTfi 


4339 


4343 


•»3hd 




4418 


4458 


4595 


Hjyf 


4677 


4717 


A03^ 
Vic J 




5171 


5175 


5290 


COOfl 


5299 


5303 


3jU*» 


SSGETT 


1730# 


^618 


2621 


eoyc 


2729 


2733 


37^3 




3165 


3171 


3197 


J<UO 


3211 


3216 


7300 




3558 


3566 


3570 




3813 


3817 


303 r 




4301 


i.328 


4331 


LLKi 


4411 


5299 


C71 7 
3313 


SSLPCN 


1730# 




4334 










SSPOP 


1730# 




2615 




2620 


2621 


3A37 




2699 


2702 


2705 




2728 


2729 


3771 




2753 


2761 


2762 




2765 


2766 


377n 




287f 


2878 


2883 


CTCO 


3008 


3009 


7m 
3Ul0 




3oet> 


3072 


3075 


3\JfO 


3081 


3083 






3175 


3176 


3177 


31 fo 


3179 


3180 


71 83 
3 lOc 




3216 


3225 


3226 


iccf 


3228 


3229 


7373 
3c3c 




3347 


3348 


3353 




3372 


3373 


7707 
3303 




3409 


3414 


3416 


7A17 


3432 


3441 


XLL.X 




3561 


3562 


3566 


7CA7 


3570 


3573 


7CA3 
330c 




3657 


3658 


3677 




3687 


3692 


7AQB 
3070 




3796 


3812 


3813 


JO 13 


3816 


3817 


30c i 




3864 


3865 


3871 


7A7A 


3875 


3876 


71177 
30r r 




3933 


3937 


3938 


7070 


3955 


3958 


707A 
3yf O 




4062 


4063 


4136 


A17Q 


4155 


4167 


H 100 




4281 


4282 


4284 


^3ac 


4286 


4301 


Z,7n7 
*»3U3 




4333 


4334 


4337 


Z.77fl 


4339 


4343 


LXLfi 




4418 


4458 


4595 


Hjyf 


4677 


4717 


Z.03C 
hycj 




5171 


5175 


5290 


C3Qfl 


5299 


5303 


<X(\L 
33UH 


SSPUSH 


1730# 


2545 


2606 


3AnB 


2613 


2618 


3A31 




2689 


2692 


2693 


3A00 


2700 


2705 


37nfl 
C'vO 




2739 


2742 


2743 




2750 


2755 


CI 30 




2777 


2811 


2813 


3ft7fl 


2845 


2847 


3A7T 




J022 


3025 


3028 




3040 


3041 


Xt\L7 
3U*»' 




3091 


3095 


3110 


JlCH 


3146 


3149 


71 CO 




3173 


3195 


3197 


XI OO 

ityy 


3200 


3201 


79AC 




3230 


3283 


3287 




3292 


3294 


X90A 
3CTO 




3364 


3369 


3371 


777C 


3388 


3391 


X^OT 

33t3 




3441 


3484 


3507 


33 1 3 


3516 


3523 


33c'> 




3566 


3568 


3570 


7<;71 
33f 1 


3574 


3578 


33tV 




3682 


3684 


3687 


300t 


3692 


3693 


3093 




3807 


3808 


3809 


30 lU 


3813 


3817 


30 1 0 




3855 


3857 


3858 


300U 


3861 


3867 


3000 




3908 


3909 


3927 


707C 


3953 


3955 


3y3r 




4018 


4050 


4051 


Lt\tJ\ 
hUOU 


4127 


4134 


•» tjy 




4246 


A255 


4260 




4274 


4275 


A 377 




4310 


4318 


4320 


4321 


4322 


4325 


4326 




4396 


4402 


4405 


4406 


4411 


4418 


4454 




4922 


4931 


4932 


4936 


5067 


5089 


5104 




5260 


5285 


5288 


5294 


5295 


5296 


5299 


SSSELE 


1730* 















C 2 

n-14 
















nACRU 


NAncd 
















7CB7 
330 f 


3300 


33oy 


TC07 

33y3 


7CO/ 

33yH 


7COC 

33y3 


7AZO 


XJl\X 


X7T\I 


77nc 
3f U3 


77nz 
iiw 


7707 
3IVI 


T70B 

3f Uo 


3f 03 


3f OH 


7B33 
30CC 




7B7n 

3o3U 


7B7/ 
30 3H 


7B/ B 
30^0 


303c 


7BC7 

303 f 


7fiAO 

3 SOU 


TB70 

iofo 




7B07 

5oyr 


Tone 
3yU3 


7Q1 3 

3yic 


7Q1 7 

3yi3 


7Q1 / 

3yiH 


7030 

3ycy 


5yyf 




/ one 


zooo 

Huuy 


Z01 7 
*U1 3 


Z03X 

*Uc3 


Z09Z 


ZOAO 


/ 1 AO 
H IOt 


/ 37< 


Z 3Z7 
hch3 


/ 9ZZ 


L 9ZO 


z 9ca 
*c3o 


Z3A7 
*C03 


Z370 
HCf 7 


h3Uh 


^3U3 


Z70B 


/ 71 C 

h31 3 


/ 799 

*3cc 


/ 79B 

^3co 


/ 770 

*33U 


/ 771 
*331 




LXK.L 

h33h 


Z7CC 
^333 


ZZ09 


ZZ10 


ZZ 1 1 

*«l 1 1 


ZZ1 c 
** 1 3 


ZZ1 A 
** 10 


LQXJi 

•it30 




cn70 
3Uf U 


C1 1 1 

3111 


C1 1 7 

3113 


CI 7A 

31 30 


CI 77 

3 1 3f 


C1Z7 
31*3 


33U0 


C71 3 

331c 


C71 7 

3313 


C71 C 

3313 


C71 B 

3310 


C799 

33cc 






276? 


2766 


2770 


2847 


2876 


3065 


3078 


3091 


XXL7 
3jh» 


7771 
33f 1 


77BB 
3300 


7701 
33yi 


7ZOB 
3*U0 


7Z 1Z 

3*1* 


7ZZ1 

3** 1 


7C37 
33c3 


3860 


3871 


3893 


3897 


4003 


4060 


4279 


4282 


3A7A 
eOf 0 


3ABn 
COOU 


3A81 
cOOl 


3AB3 
cOOc 


9A01 

coyi 


3X03 
cOVc 


coy© 


9A07 

coyi 


3779 


3777 
C' 33 


377B 
Cf 30 


37Z3 

iiHc 


97ZC 
Cf *3 


37ZA 
Cf *0 


97Z7 
Cf *f 


97ZO 

Cf *y 


3777 


377/. 


977? 
CI I J 


3777 
CI 1 1 


981 7 

c013 


9BZO 

cO*U 


9BZ7 
CO'*! 


9BZO 

co*y 


7A10 


7n3C 

3U<:3 


7077 

3U33 


7070 

3U3y 


70/ 7 

3U*3 


70ZZ 

3U** 


7AC1 
3U31 


7AAC 

3Uo3 


7noo 


71 nn 
31 UU 


7113 

311c 


71 97 

31cf 


71ZO 

31 *y 


71 AC 

3103 


71 70 

31 f U 


7171 

31 f 1 


71 07 

3\y( 


71 OB 

31 TO 


7307 

3cU3 


790Z 

3cUh 


790B 

3ry0 


7910 

3clU 


791 1 

3cl 1 


7917 

3cl3 


73BA, 

3cOo 


73on 


7301 

3cyi 


7900 

3cyy 


7701 

33U1 


770C 
33v3 


77AA 
33UO 


7707 


77B7 
330f 


77BB 

33DO 


7700 

33yu 


7701 

33yi 


7707 

33yf 


7708 

33yo 


7Z09 

3*Uc 


3*Uo 


7^07 


7C1 7 

3313 


7C33 

33cc 


7C97 

33c3 


7C98 
33^0 


7C30 
33cy 


7CC8 
3330 


7CCO 

33 3y 


3303 


7C97 

33or 


7CBB 

3300 


7CBO 

330y 


7C07 

33y3 


7COZ 

33y* 


7 COC 
33y3 


7AZO 

30*U 


7707 
3f v3 


77n^ 
3f 


770C 
3f U3 


770A 
3f wO 


7707 
3f Uf 


770B 
3r VO 


7787 
3r03 


778Z 
3f 0* 


7833 
30CC 


783A 
30c0 


78 TO 
303v 


787Z 


78^8 
3O*0 


78C3 
303c 


78C7 
303r 


300U 


7878 
30rO 


7807 


7807 
30yr 


700C 
37U3 


7019 
37 Ic 


701X 
37 13 


701 A 
37 l*» 


7030 

37C7 


7007 




zone 


zono 


Z017 
*U13 


Z037 
*Uc3 


zn3Z 
*Uc* 


ZAAA 


* lOV 


4c33 


Z3Z7 
^ch3 


Z9ZZ 


Z9ZO 

*c*y 


Z3C8 
*c3o 


Z3A7 
*C03 


Z370 

*cf y 


h30* 


^3U3 


Z70B 
43vO 


Z715 

*313 


Z793 

*3cc 


Z73B 
*3c0 


Z770 

*33U 


Z771 
*331 


L%L7 


LXKL 


Z7CC 
h333 


ZZ09 


ZZ10 
** lU 


ZZ11 
** 1 1 


ZZ1 c 
** 1 3 


ZZ1A 
** 10 


Z07A 
^▼30 


Hyhv 


C070 
3Uf U 


cm 

3111 


C117 

3113 


C17A 
3130 


CI 77 

313f 


C1Z7 

31*3 


C7A& 
33U0 


C713 
331c 


C717 

3313 


C71C 
3313 


C718 

3310 


C733 
33cc 






3AAC 
cO03 


3j^7 


cooy 


9A70 
cOrU 


3A71 
cOf 1 


3A7A 
cOrO 


3A87 
cOOr 


3AB8 
COOO 


3733 


3737 

etc J 


373Z 

etc'* 


373C 
cici 


373A 
CI CO 


3730 
CI £y 


37X7 
cr33 


377Z 
Cf 3* 


3757 


37<a 


3750 


37A3 

CI9C 


37AA 
CrOO 


ClOl 


Cf f U 


3771 

cf ft 




cool 


3a3Z 
cTcn 


7001 
3UU1 


70A7 


X010 
3U1U 


XA17 
3U13 


xniA 

3U10 


3U03 


7?WiC 
3v03 


3U0o 


7070 
3Uf U 


TO 77 


XA7A 
3UfO 


TOTS 
3UrO 


xnsz 

3UO* 


3IQI 


3103 


71 A< 
3103 


71 AA 
3IOO 


71A7 
310f 


71 A8 
3IOO 


XI 71 

31 1\ 


XI 73 

31 fc 


3cU0 


73n8 
3cVO 


T311 
3c 1 1 


731A 
3c 10 


X317 
3«lf 


X31B 
3clO 


X910 


X331 
3ccl 


7307 


7300 


XXLK 


33* f 


XX^O 
33*7 


xxcn 


XXCA 
333* 


XXC7 
333 r 


770C 
35V3 


33yT 


3*w3 


3*110 


XZOB 
3*INI 


XZ1Z 
3* 1* 


3*cy 


XAXA 
3*3* 


33*iQ 


33*y 


333v 


7CC1 
333 1 


XCC3 
333c 


7CCA. 
3330 


7CC8 
3330 


XCAZ 
330* 


7C01 
33y 1 


7 A 70 
303U 


XkLL 
30** 


303'» 


3O0O 


XA71 
30f 1 


XA7C 
30f 3 


XA7Q 

jOf 7 


7AOB 
30VO 


7700 


7701 

3f Ul 


7771 
3f 1 1 


X77A 
3f rO 


3f7* 


xnoo 


XBAA 
30UD 


7B3A 


7B38 
3oco 


78 7Z 
303% 


78ZA 
30*0 


78ZB 
30*0 


303U 


xacx 
3033 


303* 


7fi71 

3of 1 


7BQO 

3oyw 


78 Q7 
3oy3 


78QZ 

3oy* 


7807 
3pyf 


xonx 

3yU3 


3yuo 


XaA7 
3yUf 




700Z 
jyyH 


7007 

3yyf 


Z0A1 
*W1 


ZOAX 
*W3 


ZOAA 

*uuo 


Z011 
*UI 1 


ZA17 
*UI f 


^ I3C 


Z1<7 
^133 


Z1CO 

Hi3y 


Z1AX 
*1D3 


Z3X1 
*c3l 


Z377 
*c3f 


Z3ZA 
*c*U 


Z3ZX 
*C*3 


/ 370 


Z983 

^coc 


Z380 

Hcoy 


Z307 

*cy3 


Z308 

*cyo 


Z300 

*c7y 


ZXA1 
*3vl 


zxna 
*3vo 


1 73B 


Z771 

h331 


Z77Z 
h33* 


Z7ZO 
*3*0 


Z7ZA 
*3*0 


ZXZ.8 
*>*0 


ZXC1 
*331 


ZX01 

*3yi 


4458 


4589 


4593 


4597 


4675 


4677 


4715 


4717 


5109 


5113 


5114 


5130 


5143 


5168 


5169 


5171 


5300 


5306 


5307 


5310 


5313 


5318 


5322 





D 2 

PARAMETER COOING HACYll ^0(10A6) 12-JUL-83 09:44 PAGE 81-15 

CZTUVB.P11 12-JUL-83 09:26 CROSS REFERENCE TABLE - MACRO NAMES 



SEO 0222 



$$SETS 1730# 2545 

2689 2692 

2739 2742 

2777 2811 

3022 3025 

3091 3095 

3173 3195 

3230 3283 

3364 3369 

3441 3484 

3566 3568 

3682 3684 

3807 3808 

3855 3857 

3908 3909 

4018 4050 

4246 4255 

4310 4318 

4396 4402 

4922 4931 

5260 5285 

SSSETT 1730# 



2606 2608 

2693 2699 

2743 2749 

2813 2838 

3028 3036 

3110 3124 

3197 3199 

3287 3288 

3371 3375 

3507 3515 

3570 3571 

3687 3689 

3809 3810 

3858 3860 

3927 3935 

4051 4060 

4260 4272 

4320 4321 

4405 4406 

4932 4936 

5288 5294 



2613 2618 

2700 2705 

2750 2755 

2845 2847 

3040 3041 

3146 3149 

3200 3201 

3292 3294 

3388 3391 

3516 3523 

3574 3578 

3692 3693 

3813 3817 

3861 3867 

3953 3955 

4127 4134 

4274 4275 

4322 4325 

4411 4418 

5067 5089 

5295 5296 



2621 


2665 


2btf 


2708 


2722 


cfci 


2756 




CI JO 


*\ ATT 

2873 


2876 


Zool 


3047 


3063 


5065 


3159 


3161 




3205 


3206 


VOAB 
3CVO 


3296 




3c9V 


3393 


3395 


TtOO 


3524 


3548 


35Hy 


3590 


3591 




3695 


36^0 




38 10 


IB Oil 
30CQ 


ioco 


3o6o 


1B71 


3otU 






3994 


4139 


4152 


4153 


4277 


4279 


4282 


4326 


4328 


4331 


4454 


4458 


4589 


5104 


5109 


5113 


5299 


5300 


5306 



2669 

2724 

2759 

2924 

3068 

3165 

3211 

3345 

3405 

3550 

3644 

3701 

3834 

3893 

3997 

4159 

4289 

4334 

4593 

5114 

5307 



5A7n 




cO« O 


Cf CJ 


CI CO 


CI CT 


C'Oc 


c ' DO 


?7A7 


JVV 1 


TOOT 


3\1 1 V 


Tn7n 

jvfv 


^07^ 

jvf J 




3100 


3 1 0' 


3 > OO 


3c 10 


3c 1 ' 


3C 1 0 






'C350 




3408 




jJJ > 


3JJC 


3JJV 




XftfA 

3vfiO 


3671 


X771 


X77A 

31 l\j 


3794 

31 


jOHO 




3850 


XML 


XR97 


3903 


4001 


4003 
4231 


4006 


4163 


4237 


4293 


4298 


4299 


4340 


4346 


4348 


4597 


4675 


4677 


5130 


5143 


5168 


5310 


5313 


5318 



2687 2688 

2733 2734 

2770 2771 

3013 3016 

3078 3084 

3171 3172 

3219 3221 

3354 3357 

3429 3434 

3558 3564 

3675 3679 

3800 3806 

3853 3854 



3906 
4011 
4240 
4301 
4351 
4715 
5169 
5322 



3907 
4017 
4243 
4308 
4391 
4717 
5171 



. ABS. 030700 000 



ERRORS DETECTED: 0 

CZ TUVB. CZTUVB/CRF=SVC. SML/HL , SPHAC . SML/NL , CZTUVB.P1 1 
RUN-TINE: 149 152 10 SECONDS 
RUN-TIME RATIO: 347/312=1.1 
CORE USED: 31K (62 PAGES) 



